Ayuda con VB6 y SQL2000

[Jose2k]

ok, ya empeze, tengo mi vb6 y sql server 2000. ahora la duda principal!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! como conecto los text y labels y combo boxes a la base de datos en sql? intente data enviroment pero nunca he trabajado con ello, por favor, les agradezco mucho su ayuda con los links, pero esa pagina del guille me hace ver todo mas complicado ... si todo pudiera ser en programacion textual y no objetos seria mejor........................
muchas gracias

[gary666]

Hola mira esto trabaja como si estubieras conectandote a access es lo mismo acuerdate qe sql es una base de datos solo qe tienes qe conectarte a fuerza por ADO y no como access qe puede se ADO o DAO primero tienes qe crear una conexion


Private Sub Form_Load()
Dim Conection As ADODB.Connection
Dim strCon As String
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Gary\ejemplos vb6\acceso\Ejemplo.mdb;Persist Security Info=False"
Set Conection = New Connection
Conection.ConnectionString = strCon
Conection.Open
Conection.Close
End Sub
En este ejemplo me conecto por medio de ado a una base de access si quieres conectarte a sql solo cambia el Provider por el de SQL si no sabes sacar el string de conexion lo mas facil es agregar un ado control y en la propiedad del conection string te va mostrando los pasos al final te genera el string de conexion esa copiala al codigo y yap.
Despues los demas procedimentos insertar, eliminar se manejan igual declarnado una variable recordset pero utilizando ADO
Espero qe te sirva esto
Bye

[Jose2k]

ok!!!
de primero gracias, me has ayudado mucho
ya abri la conexion, ahora tengo un objeto combo y quiero enlazarlo con un campo de una tabla, es decir que el combo muestre lo que tiene el campo codigo de la tabla 'elect'

gracias por todo!!!!! un saludo

[gary666]

a ok mira si trabajas con sps tienes qe agregar una variable tipo command para hacer la conexion con el sql despues se lo asocias a una variable tipo recordset para manipular los datos

Dim adocommand As ADODB.Command
Dim rs As Recordset
Set adocommand = New Command


adocommand.ActiveConnection = Conection
adocommand.CommandText = "spBuscaAgenda"
adocommand.CommandType = adCmdStoredProc
adocommand.CommandTimeout = 120
Set rs = adocommand.Execute
While Not rs.EOF
MsgBox rs!Nombre
rs.MoveNext
DoEvents
Wend
rs.Close
Set adocommand = Nothing

Si no utilizas sp entonces el codigo qedaria


Dim rs As Recordset
Set rs = Conection.Execute("Select * from Agenda")
While Not rs.EOF
MsgBox rs!Nombre
rs.MoveNext
DoEvents
Wend
rs.Close

End Sub

Donde conection es el nombre del obejto donde referenciaste la conexion

[Jose2k]

gracias de nuevo pero creo que lo que pusiste ahi no es lo que quiero decir o no lo interprete de esa forma yo.....

en el form1, estoy haciendo un formulario de facturas y el codigo de los productos quiero q sea un combo box, en la base de datos de prueba q estoy haciendo, tabla productos, campo codigo puse dos registros, quiero q todos los registros q coloque sean como lista en el combo box... la verdad no entendi bien lo que pusiste ahi.. no estoy seguro si funciona o no.. gracias amigo, saludos

[Mickel]

Seria

Dim rs As Recordset
combo.clear 'nombre de tu combobox
Set rs = Conection.Execute("Select * from Agenda")
While Not rs.EOF
combo.additem rs!Nombre
rs.MoveNext
Wend
rs.Close

[Jose2k]

coye gracias de verdad!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! un saludo