Visual Basic - conexion con odbc

Life is soft - evento anual de software empresarial
   
Vista:

conexion con odbc

Publicado por jorge (3 intervenciones) el 14/01/2010 22:01:12
amigos tengo una aplicacion donde conecto una base de datos access y hago una consulta pero el problema esq ahora necesito hacer una conexion con odbc porque la hacia estatica osea con la base de datos en la misma carpeta de la aplicacion ahora la necesito conectarla con odbc
he utilizado varios ejemplos pero no he podido haogo la conexion en panel de control pero nada aqui le agrego el codigo que uilizo para que ustedes me puedan ayudar a cambiarlo por una conexcion odbc
gracias de antemano
//
Sub cargar()
Dim sql As String
Dim cadena As String
Set cn = New ADODB.Connection
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\minproteccion.mdb"
cn.ConnectionString = cadena
cn.Open
Set rs = New ADODB.Recordset
sql = "SELECT * FROM desp"
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
//

este es para la busqueda de la consulta

Private Sub Form_Load()
Dim sql As String
Dim cadena As String
Set cn = New ADODB.Connection
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\minproteccion.mdb"
cn.ConnectionString = cadena
cn.Open
Set rs = New ADODB.Recordset
sql = "select *FROM desp" & " where " + Trim(Form1.Text1.Text) + " like '" + Trim(Form1.Text2.Text) + "%'" & "order by " & Form1.Text1.Text & " "
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

amigos gracias de antemano
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