Ayuda con campos memo en Tablas DBF desde VBasic
Publicado por Jeny (1 intervención) el 26/05/2006 18:26:02
Hola porfavor necesito ayuda para saber como introducir datos a un campo memo en una tabla dbf desde Visual Basic usando objetos ADODB y sql.
Uso los sigs. objetos.
DBC.connection para Tablas FoxPro
COM.Command
RS.Recordset
Todo va bien, ya que puedo introducir, leer y/o actualizar cualquier dato de cualquier campo, el problema es cuando uso un campo MEMO de la tabla dbf y solo puedo introducir hasta 255 caracteres aun cuando el campo es MEMO.
cuando introduzco mas de 255, marca un error de que hay una palabra no reconocida en la instruccion aun cuando la misma instrucción me permite meter 255 caracteres o menos
PUBLIC DBC As ADODB.Connection
PUBLIC Com As ADODB.Command
PUBLIC RS As ADODB.Recordset
Set DBC = New ADODB.Connection
DBC.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Driver para o Microsoft Visual FoxPro};UID=;SourceDB=" & APP.PATH & ";SourceType=DBF" ';Exclusive=No;BackgroundFetch=Sí;Collate=Machine;"
DBC.Open
Set Com = New ADODB.Command
Com.ActiveConnection = DBC
Com.CommandType = adCmdText
DATOS= "CADENA DE MAS DE 256 CARACTERES"
'AQUI EMPIEZA EL PROBLEMA
Com.CommandText = "INSERT INTO DATOS (OBSER) VALUES ('" & Trim(DATOS) & "')"
Set RS = Com.Execute()
OBSERV ES EL CAMPO MEMO DE UNA TABLA LIBRE DBF
LES AGRADEZCO DE ANTEMANO.
Uso los sigs. objetos.
DBC.connection para Tablas FoxPro
COM.Command
RS.Recordset
Todo va bien, ya que puedo introducir, leer y/o actualizar cualquier dato de cualquier campo, el problema es cuando uso un campo MEMO de la tabla dbf y solo puedo introducir hasta 255 caracteres aun cuando el campo es MEMO.
cuando introduzco mas de 255, marca un error de que hay una palabra no reconocida en la instruccion aun cuando la misma instrucción me permite meter 255 caracteres o menos
PUBLIC DBC As ADODB.Connection
PUBLIC Com As ADODB.Command
PUBLIC RS As ADODB.Recordset
Set DBC = New ADODB.Connection
DBC.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Driver para o Microsoft Visual FoxPro};UID=;SourceDB=" & APP.PATH & ";SourceType=DBF" ';Exclusive=No;BackgroundFetch=Sí;Collate=Machine;"
DBC.Open
Set Com = New ADODB.Command
Com.ActiveConnection = DBC
Com.CommandType = adCmdText
DATOS= "CADENA DE MAS DE 256 CARACTERES"
'AQUI EMPIEZA EL PROBLEMA
Com.CommandText = "INSERT INTO DATOS (OBSER) VALUES ('" & Trim(DATOS) & "')"
Set RS = Com.Execute()
OBSERV ES EL CAMPO MEMO DE UNA TABLA LIBRE DBF
LES AGRADEZCO DE ANTEMANO.
Valora esta pregunta


0