SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: mi69 en Miércoles 20 de Abril de 2005, 18:34

Título: Re: Problemas Con Delete
Publicado por: mi69 en Miércoles 20 de Abril de 2005, 18:34

Hola.

Estoy migrando una bd Access a una de Visual Foxpro y hasta ahí todo bien, pero al tratar eliminar registros me sales este error: File 'usuario.dbf' does not exist.

Espero puedan ayudarme, gracias. :hola:

Private Sub cmdDelete_Click()
Dim miConnection As ADODB.Connection
Dim miRecordSet As ADODB.Recordset
Dim miComando As ADODB.Command

Dim strConn As String

strConn = "Provider=VFPOLEDB.7;" & _
"Data Source=F:\MCV\System\Database\Database.dbc;" & _
"Password='';Collating Sequence=MACHINE"

Set miConnection = New ADODB.Connection
With miConnection

.ConnectionString = strConn
.CursorLocation = adUseClient
.Open
End With

Set miComando = New ADODB.Command
Set miRecordSet = New ADODB.Recordset
With miComando
.ActiveConnection = miConnection
.CommandType = adCmdText
.CommandText = "DELETE USUARIO FROM T0001 WHERE USUARIO = 'MIGUEL'"

Set miRecordSet = .Execute
LlenaSSgrid
SSgrid.Refresh
MsgBox "Listo !", vbInformation, "Delete"
End With
End Sub

Título: Re: Problemas Con Delete
Publicado por: mi69 en Miércoles 20 de Abril de 2005, 19:16

Ya lo solucione, gracias!  :hola: