| Pregunta: | 52423 - VISUAL BASIC + PARADOX |
| Autor: | Eduardo Cejas |
| Tengo un sistema de analisis clinicos que funciona en DOS con tablas Paradox y quisiera pasarlo a visual basic utilizando las tablas existentes pero no encuentro la forma si alguien puede mandarme informacion sobre el tema se los voy a agradecer | |
| Respuesta: | Hans Cruz Buchelli |
| Este code copialo en un Modulo y listo... alli tienes apara poder conectarte a la carpeta donde se encuentra tu bd y tambien tienes un modulo para poder ejecutar las consultas q mandes desde vb6.0..
Option Explicit Public CnnPrx As New Connection Private vbPath As String Public Function EjecutaPrx(vCsl As String) As Recordset Dim Cmd As New Command On Error GoTo Error Cmd.CommandTimeout = 180 Cmd.ActiveConnection = CnnPrx Cmd.CommandText = vCsl Cmd.CommandType = adCmdUnknown Set EjecutaPrx = Cmd.Execute Set Cmd = Nothing Exit Function Error: MsgBox Err.Description, vbCritical, "Aviso" Exit Function End Function Public Function ConfigCnnPrx(TempConexion As Connection) As Connection With TempConexion If TempConexion.State = adStateOpen Then TempConexion.Close .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source").Value = vbPath .Properties("Extended Properties").Value = "Paradox 5.X" .Mode = adModeReadWrite .Open End With End Function Public Function ConnectPrx(vbRuta As String) As Boolean On Error GoTo Error vbPath = vbRuta ConfigCnnPrx CnnPrx ConnectPrx = True Error: If Err.Number <> 0 Then MsgBox "Descripcion : " & Err.Description & Chr(13) & "Codigo : " & Err.Source & Chr(13) & "Id de error : " & Err.Number, vbCritical, "Aviso" ConnectPrx = False End If End Function Suerte espero q te sirva!!! | |