En visual con el ole

Te anexo un código donde realiza una conección con bases de datos en access, (Código en vb6):



Solo tienes que agregar en "project/references":

Microsoft ActiveX Data Objects 2.8 Library (msado28.tbl)

Microsoft ActiveX Data Objects Recordset 6.0 Library (msador15.dll)





Este es el código del botón del form1:



Private Sub Command1_Click()

Dim Rs As ADODB.Recordset

Set Rs = AbreRs("SELECT * FROM Datgen WHERE apaterno like '%" + Trim(Text1.Text) + "%'")

If Not Rs.EOF Then

Form2.Show

Else

MsgBox "Nombre: " + Trim(Text1.Text) + " no fue encontrado", vbInformation

End If

Call CierraRS(RsB)

Call CierraConeccion() End Sub



Este el el código de las funciones, lo puedes agregar en un modulo:



Dim Cnnn As ADODB.Connection



'Funciones de coneccion a la base de datos y recorsets

Sub AbreConeccion()

'SQL en caso de coneccion con SQL

'StringConeccion = "Provider=SQLOLEDB;Data Source=NombreServidor;Initial Catalog=NombreBaseDatos;User ID=Usuario;Password=Password;"

'Access en caso de coneccion con Access

sNombreBase = app.path+"\MiBasedeDatos.MDB"

StringConeccion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + sNombreBase + ";"

On Error Resume Next

If (Cnnn.State = adStateClosed) Then

Set Cnnn = New ADODB.Connection

Cnnn.CursorLocation = adUseClient

Cnnn.CommandTimeout = 200000

Cnnn.Open StringConeccion

End If

End Sub





Sub CierraConeccion()

On Error Resume Next

If (Cnnn.State <> adStateClosed) Then

Cnnn.Close

Set Cnnn = Nothing

End If

End Sub





Function AbreRs(SQLStringAccess As String) As ADODB.Recordset

AbreConeccion ' Se ejecuta la funcion para abrir la conección con la base de datos

Dim RsNew As ADODB.Recordset

Set RsNew = New ADODB.Recordset

RsNew.CursorLocation = adUseClient

RsNew.Open SQLStringAccess, Cnnn, adOpenStatic, adLockOptimistic

Set AbreRs = RsNew

End Function





Sub CierraRS(RsCerrar As ADODB.Recordset)

If RsCerrar.State = adStateOpen Then

RsCerrar.Close

Set RsCerrar = Nothing

End If

End Sub



Cualquier duda plantearla en anexos de esta misma pregunta...



Saludos...

Requieres dar de alta la libreria Microsoft ActiveX Data Objects 2.1 library y luego pues haces la conexión con la base de datos, pero hay varias formas, la puedes hacer en el evento Load de cualquier formulario o creas un módulo, por ejemplo, puedes declarar una constante de tipo cadena y luego pones el codigo, te paso uno: strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\INFORMATICA\SIRFA.mdb;Persist Security Info=False;Jet OLEDB:Database Password= PASSWORD ", aqui estas declarando la base de datos, despues esa constante le pones que la abra, luego el tipo de conexión y por ultimo el cliente, pero luego para que mandes atraer los datos requieres utilizar igualmente codigo SQL, aunque, eso que lo mencionas lo debes de sea trae con codigo, pero si tienes que agregar el WMP como componente y agragrle el codigo que requiere, mejor dime y te hago el sistema por que asi esta dificil que me entiendas!

mira creo que estas pidiendo como conectar una base de datos creada fuera de visual basic y luego hacer la conectarla, de esa manera no se, es conveniente que hagas tu base de datos desde visual basic , es mas comodo. para hacerla desde visual basic sigue estos pasos y si ya los sabes dsiculpa por no poderte ayudar mas.

1) habres tu nuevo proyecto en visual

2) te vas a complementos

3) administrador visual de datos

4)archivo

5)nuevo

6) microsoft acces

7)mdb la version 7.0

8) creas una carpeta en disco local C y le pones un nombre a tu base de datos que va a estar guardada en esa carpeta

9) luego se te abrera y creas las tablas y los camos que necesites. suerte