Conectarme a base de datos

[crucifijo]

Hola amigos como vieron ya he puesto un tema anterieormente, ahora mi otra duda es como me conecto a una base de datos ya que estoy utilizando Adodc en visual basic 6.0 y quiero jalar registros de mi base pero no he podido conectarme con Adodc.

Ojala pudieran hecharme la mano gracias

[jrp01]

Por que no mejor utilizas ADO? De esta manera yo meconecto a BD de Access, postgresql,interbase, mysql.

[crucifijo]

Una pregunta y como agrego el compnente Ado a mis herramientas o de donde lo puedo sacar ya que solo tengo el Data, Ole y Adodc y claro como me conectaria a la bases de datos.

[crucifijo]

Una pregunta y como agrego el compnente Ado a mis herramientas o de donde lo puedo sacar ya que solo tengo el Data, Ole y Adodc y claro como me conectaria a la bases de datos.

[jrp01]

Mira en proyecto referencias selecionas Microsoft ActiveX Data Objects pon la version mas actualizada que tengas creo que con 2.0 funcionara bien si no baja la ultima version de la pagina de microsoft buscala como MDAC pero la que utilices tambien la debera tener la maquina en la cual pongas el programa con 2.0 no creo que tengas problemas.

lo basico pa la conexion es en un modulo pones:

Public cn As New ADODB.Connection

para abrir la conexion:
Para Access
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tubase.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password="

para SQLServer:
Cn.Open = "DRIVER=SQL Server;SERVER=(local);UID=" & sUsr & ";PWD=" & sPwd & ";DATABASE=Tubase"

[amigaa]

Hola..
espero y me puedan orientar en esta duda; pretendo mostrar en un combobox los datos de un campo de la bd. Me podrïan orientar?
Gracias!

[chcma]

Suponiendo que tu conexión sea CN y tu Recordset sea R sería y tu combo se llame Cmb:

set R = Cn.execute("Sentencia")
R.moveFirst
while not R.Eof
cmb.addItem( R("Campo") )
R.movenext
wend

[GeoAvila]

lo del data combo en un Listado lo puedo hacer yo..
enviame un mensaje si te interesa....
nos vemos..

[javiergal]

por favor necesito ayuda con visual basic, mi problema es el siguiente:

casi no conozco las funciones de visual porque programo en otros lenguajes ahora por necesidad de la empresa en que trabajo necesito programar en visual.

quiero ingresar una fecha en un caja de texto, luego compararla con una base de datos y obtener el id de esta fecha.

mi codigo es el siguiente

text2.text=tbl.openrecordset("select * from calendar where fecha=$$$$$$$")

en $$$$$$$ es donde tengo el problemas pues quiero leer la fecha ingresada en text1.text pero no tengo idea de como realizar esa consulta, si alguien puede ayudarme por favor no dude en hacerlo se lo agradecería muchísimo.

[jrp01]

Primero te recomiendo cambiar el text por un DTPicker (Proyecto->componentes y selecionas Microsoft Common Controls XXXX) este es ocmo un combo pero solo admite fechas pone como un calendario.

En el load pones:

DTPicker1.Value = Day(Now) & "/" & Month(Now) & "/" & Year(Now)

Esto para actualizar la fecha a la actual


Ahora en que esta la BD por que algunos primero va dia/mes/año en otros mes/dia/año y si es an access va entre ##:

Por ejemplo tu select en access:

text2.text=tbl.openrecordset("select * from calendar where fecha=" & #" & DTPicker1.Month & "/" & DTPicker1.Day & "/" & DTPicker1.Year & "#)


Con tu text:

text2.text=tbl.openrecordset("select * from calendar where fecha='" & Text1.Text & "'")