Visual Basic - importamte conexion

Life is soft - evento anual de software empresarial
   
Vista:

importamte conexion

Publicado por jorge de la cruz (3 intervenciones) el 02/02/2010 16:40:05
amigos tengo un progrma que hace una consulta a una base de datos accees el me hace todo bien el problema esque quiero hacer la conexion con odbc he leido mucho pero no he logrado hacerla
espero que me ayuden se los agradeceria muchisimo hai le agrego la parte de busqueda del codigo

Dim cn As ADODB.Connection, rs As ADODB.Recordset, rs2 As ADODB.Recordset

Private Sub Command1_Click()
Unload Form3
Form3.Show
Form3.buscar rs.Fields(0).Value
End Sub

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
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

RE:importamte conexion

Publicado por Luis Hansel (29 intervenciones) el 02/02/2010 20:52:56
Saludos Jorge:

Posiblemente tu problema radica en la cadena de conexión. En tu caso la variable "cadena".

No la declares como tal... en su lugar coloca el nombre del odbc que has creado. Es decir, si tu ODBC se llama "ConexionAccess", tu valor en la variable cadena se vería así:

cadena = ConexionAccess

Pruebalo y luego me avisas.
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