Добрый день,
Имеется форма созданная в Excel посредством которой в БД Access заносятся данные, однако в выбранный столбец "CharacteristicsStateOfObjectComment" который имеет тип "Длинное поле" непосредственно в самой БД Access не выгружаются данные с ячейки в случае если данные составляют более 510 знаков (в моем случае текст), может быть я что-то делаю не так?
Имеется форма созданная в Excel посредством которой в БД Access заносятся данные, однако в выбранный столбец "CharacteristicsStateOfObjectComment" который имеет тип "Длинное поле" непосредственно в самой БД Access не выгружаются данные с ячейки в случае если данные составляют более 510 знаков (в моем случае текст), может быть я что-то делаю не так?
Скрытый текст |
---|
Sub Export() Dim Con As ADODB.Connection Set Con = New ADODB.Connection With Con .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=O:\Valuer_Check\Valuer_Check_Base.mdb;Persist Security Info=True;Jet OLEDB:Database Password=123" .Open End With Dim Cmd As ADODB.Command Set Cmd = New ADODB.Command Cmd.ActiveConnection = Con Cmd.CommandText = "insert into [Valuer] (CharacteristicsStateOfObjectComment) values " _ & "(@CharacteristicsStateOfObjectComment)" Cmd.Parameters("@CharacteristicsStateOfObject").Type = adWChar Cmd.Parameters("@CharacteristicsStateOfObject").Value = Worksheets("Данные").Range("D277").Value If IsEmpty(Worksheets("Экспертиза отчета об оценке").Range("E167")) = False Then Cmd.Parameters("@CharacteristicsStateOfObjectComment").Type = adWChar Cmd.Parameters("@CharacteristicsStateOfObjectComment").Value = Worksheets("Экспертиза отчета об оценке").Range("E167").Value Else Cmd.Parameters("@CharacteristicsStateOfObjectComment").Type = adWChar Cmd.Parameters("@CharacteristicsStateOfObjectComment").Value = "" End If Cmd.Execute Dim User As String User = Application.UserName Dim ID As String ID = (Con.Execute("select max(ID) from Valuer where Expert = '" & User & "'").Fields(0).Value) Con.Close Set Con = Nothing End Sub |