RE:AYUDENMEEEEEEEE
Publicado por
jyepez (1 intervención) el 29/11/2004 14:40:39
'Coneccion con acces
Dim sSql As String
Dim cnAcces As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\jyepez\Escritorio\nombre_base_dato.mdb;JET OLEDB:DATABASE PASSWORD=")
Dim sqlReaderAcces As OleDbDataReader
'Buscar en la base de datos acces
sSql = "SELECT campo1,campo22 FROM tabla WHERE C=campo3"
Dim accesCmd As New OleDbCommand(sSql, cnAcces)
cnAcces.Open()
sqlReaderAcces = accesCmd.ExecuteReader()
If sqlReaderAcces.HasRows Then
While sqlReaderAcces.Read()
end while
End If
sqlReaderAcces.Close()
cnAcces.Close()