Cita:
Iniciado por alexzyz
Debes agregar en Referencias el Activex Data Object 2.x mas conocido como ADO
Luego declaras :
Dim con as New ADODB.Connection
En el Load :
con.Open ="Provider = SQLOLEDB;Data Source = (nombre servidor);Initial Catalog=(nombre base de datos);Uid =(nombre usuario);Pwd=(password);"
Para hacer un select debes declarar un recordset :
Dim rst as ADODB.Recordset
En un Boton
Set rst = con.execute("Select * from Usuarios")
do while not rst.eof
loop
si es un insert,delete,update..
con.execute("Insert into tabla (d) values ('1')")
Espero que te sirva.
Hola soy nuevo en este foro...
Me gustaria saber si puedes ser un poco mas especifico para alguien que recien se inicia en esto.
las declaraciones
Dim con as New ADODB.Connection (esto se declara como general?)
----------------------------------------------------------------------------------------
luego esto en el form load?
con.Open ="Provider = SQLOLEDB;Data Source = (nombre servidor);Initial Catalog=(nombre base de datos);Uid =(nombre usuario);Pwd=(password);"
Para hacer un select debes declarar un recordset :
Dim rst as ADODB.Recordset
En un Boton
Set rst = con.execute("Select * from Usuarios")
do while not rst.eof
loop
si es un insert,delete,update..
con.execute("Insert into tabla (d) values ('1')")
------------------------------------------------------------------------------------------
para esta conexion necesito un modulo?, q se declara en el modulo?
ojala me respondan , gracias