Ayuda Textbox y Boton CARGAR

[belnels]

Buenas foreros, necesito de su ayuda ya que estoy creando un programa (((SOY APRENDIZ EN VB6))). Mi problema es crear un textbox y un boton cargar que al ingresar 1 o x numero me cargue los datos del cliente:

Ejemplo:
Nombre de la empresa, telefono, Direccion, etc.

Gracias desde Barcelona - Venezuela.

[erbuson]

Hola, parece que te has dado cuenta que esto es un foro de Visual Basic, por tus palabras, entonces, piensa que no somos aprendices de Magos ni de Adivinos.

Por favor, dale un vistazo objetivo a tu pregunta, y dinos si realmente crees que alguien es capaz de responderla.

¿ Donde están tus datos ? ¿ Como debe buscarlos el programa ? ¿ Estas utilizando Bases de Datos ? ¿ Ficheros secuenciales ? ¿ Ficheros Aleatorios ?

Creo que son demasiadas dudas para intentar siquiera aventurar una solución.

No te enfades por mis palabras pero piensa que estamos aqui para ayudar, no para hacer todo el trabajo.

Saludos

[belnels]

Ok, me explico... estoy comenzando a desarrollar el programa, la base de datos esta en access 2007 dentro de ella esta clave, registro de orden, cotizacion, factura.

En este caso en el form1 = registro de orden dentro de ella tengo los siguientes textbox:
│Nombre del cliente│ - │cedula / rif│ - │domicilio│ - │telefono│, entre otros

Lo que deseo es saber como se puede cargar nombre, cedula, domicilio y telefono desde cedula con un boton, y los demas textbox esten en blanco, sin que afecte ningun registro en access.

Muchas gracias.

[franko1809]

Ahi te dejo un codigo solo trata de entenderlo y adaptalo es sencillo
Previamente debes agregar la referencia Microsoft active x dataobject 2.x library para que funcione la conexion, busca info sobre eso.

Código:

Dim rsProd As Recordset
Public cn As New Connection

Private Sub Command1_Click()
'Hace tu conexion a la Base de datos
'En este caso es para access 2003 busca info sobre la conexion para 2007
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Data01.mdb;Password=;Persist Security Info=false"

End Sub

Private Sub Command2_Click()
'Creas tu recordset
Set rsProd = New Recordset
rsProd.Open "SELECT * FROM producto where codprod='" & txtbusqueda & "'", cn, adOpenStatic, adLockOptimistic
'Set DataGrid1.DataSource = rsProd

Text1 = rsProd(0) 'o puedes colocar el nombre del campo asi rsProd("codprod")
Text2 = rsProd(1)
Text3 = rsProd(2)

End Sub