Access - No consigo conectar

   
Vista:

No consigo conectar

Publicado por jesus ricarte jesusricarte@hotmail.com (14 intervenciones) el 05/03/2012 11:31:56
Hola a todos-as...
esto no me funciona
Sub probando()


Dim cnn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim SQL As String

Try
' Configuramos y abrimos la conexión
With cnn
.ConnectionString = _
"Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Mis documentos\Bd1.mdb"
.Open()
End With

Catch ex As Exception
MessageBox.Show(ex.Message, _
"Error al abrir la conexión", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

cnn.Close()

Exit Sub

End Try

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

No consigo conectar

Publicado por Jefferson (381 intervenciones) el 05/03/2012 15:13:33
Hola Jesus ricarte

Este foro es de Access y tu codigo debe funcionar en .NET pues VBA no reconoce esas instrucciones

Saludos
Desde Venezuela
Jefferson
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

No consigo conectar

Publicado por jesus ricarte jesusricarte@hotmail.com (14 intervenciones) el 05/03/2012 15:38:09
Gracias por contestar Jefferson...
ya he conseguido conectar...

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer

Set cn = CurrentProject.Connection
Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
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

No consigo conectar

Publicado por Jefferson (381 intervenciones) el 05/03/2012 15:54:38
Es correcto Jesus, ahora solo debes cerrar

cn.close
rs.close

Set cn = nothing
Set rs = nothing



Desde Venezuela
Jefferson
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