ACCESS & VB.NET

23/12/2003 - 16:58 por Juan Rodriguez | Informe spam
Necesito ver un ejemplo de conectarme a una BD Access, utilizando ADO,
Como lo puedo hacer, ya que en vb6 yo tenia algo como esto, pero ahora en
vb.net es diferente.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim cn As New ADODB.Connection

strconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Cursos\VB.NET\Conecta\aspxBeta1\Prueba.mdb;Persist Security
Info=False"

With cn

.CursorLocation = adUseClient

.ConnectionString = strconnect

.ConnectionTimeout = 10

.Open()

End With

End Sub
 

Leer las respuestas

#1 Guillermo guille
24/12/2003 - 05:27 | Informe spam
hola,

AQuí tienes un ejemplo de cómo conectarte, acceder a los registros, etc.
http://www.mundoprogramacion.com/NE...ctarAccess


Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/ (en construcción)
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"Juan Rodriguez" wrote in message
news:
Necesito ver un ejemplo de conectarme a una BD Access, utilizando ADO,
Como lo puedo hacer, ya que en vb6 yo tenia algo como esto, pero ahora en
vb.net es diferente.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim cn As New ADODB.Connection

strconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Cursos\VB.NET\Conecta\aspxBeta1\Prueba.mdb;Persist Security
Info=False"

With cn

.CursorLocation = adUseClient

.ConnectionString = strconnect

.ConnectionTimeout = 10

.Open()

End With

End Sub



Preguntas similares