Visual Basic - Creacion de DBF?

Life is soft - evento anual de software empresarial
   
Vista:

Creacion de DBF?

Publicado por diana (147 intervenciones) el 08/08/2011 18:44:27
Hola buen día, tengo un codigo con el cual creo una tabla dbf, pero ahora quiero q esa tabla tenga codigo de pagina igual a 850, alguien podria guiarme como poder asiganarselo? De antemano gracias!!

Dim sFile As String
Dim sPath As String

sFile = Right(Text1.Text, Len(Text1.Text) - InStrRev(Text1.Text, "\"))
sPath = Left(Text1.Text, InStrRev(Text1.Text, "\"))
sFile = Text2.Text
Dim Conn As ADODB.Connection 'VARIABLE DE CONECCION
Dim Comm As ADODB.Command 'VARIABLE DE COMANDO
Dim RS As ADODB.Recordset 'VARIABLE PARA EJECUCION
'
''INICIALIZA 'Conn'
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Microsoft dBASE Driver (*.dbf)};UID=;SourceDB=" & sPath & ";SourceType=DBF" ';Exclusive=No;BackgroundFetch=Sí;Collate=Machine; "
Conn.Open

''INICIALIZA 'Comm' Y LO ENLAZAS A 'Conn'
Set Comm = New ADODB.Command
Comm.ActiveConnection = Conn
Comm.CommandType = adCmdText
'
Comm.CommandText = "Create table " & sFile & " CODEPAGE = 850 (Name char(50), City char(50), Phone char(20))"

Set RS = Comm.Execute
'
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Creacion de DBF?

Publicado por diana (147 intervenciones) el 08/08/2011 18:45:35
en la linea
Comm.CommandText = "Create table " & sFile & " CODEPAGE = 850 (Name char(50), City char(50), Phone char(20))"

me manda error

Gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar