ayuda en base d datos

[eszzes]

hola bueno queria saber como es para hacer q al abrir un formulario ejecutarlo q en una caja de texto se cargue un dato de una base d datos  en access por ejemplo yo puse en el form load:
txt1.text = tabla("campo")
pero nada q ver me parece, o al reves pero nose en eso ya se me complico
me podrian de cir como puedo hacer?

[ssccaann43 ©]

Hola, fijate en este LINK y aprende un poco sobre ADO. Considero que es el primer paso que deberias dar, para luego empezar a consultar.  Cualquier duda postea, pero informate primero. De igual manera estamos a la orden para ayudarte con dudas en BD. Saludos

[eszzes]

Hola, fijate en este LINK y aprende un poco sobre ADO. Considero que es el primer paso que deberias dar, para luego empezar a consultar.  Cualquier duda postea, pero informate primero. De igual manera estamos a la orden para ayudarte con dudas en BD. Saludos

bueno mira este es el codigo q tengo en el formulario lo otro ya lo se lo q nunca se me ocurrio es hacer lo q pregunte es al ejecutar el formulario  en el formload nomas se puede hacer si hay otra forma no la conozco y bueno al ejecutar q se cargue un dato de una base de datos a una caja de texto nose si me entendes ...este es el codigo q tengo nada mas para ese trabajo nomas me falta lo q pregunto ::::::

Dim perfumeria As Database
Dim stock As Recordset
Dim a As Integer

Private Sub cmdcantidad_Click()


    stock.AddNew
    stock("cantidad_de_stock") = txtstock.Text
    stock.Update
    MsgBox "stock guardados"

End Sub

Private Sub Command1_Click()
Form1.Show
Unload Me
End Sub

Private Sub Form_Load()

Set perfumeria = OpenDatabase(App.Path & "\perfumeria.mdb")
Set stock = perfumeria.OpenRecordset("stock")
a = 0
End Sub

por favor se q es una boludes pero ya probe con todo y en internet no lo encuentro

[cassiani]

Hola mira sería así:

Código (vb) [Seleccionar] Expandir

RS.Open "SELECT DNI FROM Usuario WHERE Id = 9", Conex, adOpenKeyset, adLockOptimistic
        Text2.Text = RS2!DNI
RS.Close

Siendo  "RS" el recorset que en tu caso es "stock", si sabes un poquito de SQL, notarás que se selecciona de la tabla "Usuario" el "DNI" (cédula o número de identificación), del registro cuyo ID sea igual a 9 y luego lo pasamos a un textbox.

saludos!

[eszzes]

Hola mira sería así:

Código (vb) [Seleccionar] Expandir

RS.Open "SELECT DNI FROM Usuario WHERE Id = 9", Conex, adOpenKeyset, adLockOptimistic
        Text2.Text = RS2!DNI
RS.Close

Siendo  "RS" el recorset que en tu caso es "stock", si sabes un poquito de SQL, notarás que se selecciona de la tabla "Usuario" el "DNI" (cédula o número de identificación), del registro cuyo ID sea igual a 9 y luego lo pasamos a un textbox.

saludos!

si pero las consultas son para access o algo asi es distinto creo o seria lo mismo?

[cassiani]

Exactamente igual 

y como te dije antes, no hace falta que cites el anterior post si te vas a referir a él , "se sobre entiende" 

Prueba y después nos cuentas como te fue.

pd: a ver... "Conex" es la cadena de conexión por si te quedan dudas

[ssccaann43 ©]

Exactamente coincido con cAssiAni, todos los Querys son ejecutables para cualquier base de datos, hasta para un archivo de texto plano en caso de usarlo como una BD. El ejemplo que el amigo te adjunto alli esta bien, no tiene error y deberia funcionar. Cualquier duda consulta. Saludos.


Nota: No dejes de leer lo que te pase, si deseas aprender un poco más sobre BD, porfa ojealo... De igual manera tendras nuestra ayuda.

[Angeldj27]

Intentalo con la conexion con el componente Ado es mucho mas facil al comienzo para hacer las conexions directas y luego seteas solo el datasource del texto con el nombre del Ado y el datafield con el nombre de la tabla y se mostraran los datos en el texto.

Esta es una forma sin tirar mucho codigo.

Para la consulta en el Ado seria:

Código [Seleccionar] Expandir


AdoNombreQuieras.RecordSource = "SELECT * FROM NameTabla WHERE CampoTabla = '" & (Text1.Text) + "'"
AdoNombreQuieras.Refresh

Y el dato de ese campo que contenga ese registro se visualiza en el texto

PD: Puedes usar ambas conexiones y te daran los mismos resultados en esta sin usar mucho codigo.

Saludos...

[eszzes]

sabes q probe con los dos y me salta un cartel diciendo q no se encontro el miembro de datos y me sobresalta la propiedad "open" o en el otro codigo "recordsourse" y puse el componente ado y todo eso. nose q sera ostaria haciendo algo mal pero nose.
ya se q me dijeron q intente leer el manual d bd pero el problema es q tengo q entregarlo el lunes al trabajo y no me da el tiempo y por esa boludes no puedo hacer el tp

[byway]

fijate bien los nombres de la tabla y el campo que estas leyendo ...

veo que pones cantidad_de_stock y tambien veo stock ...

aki un ejemplo de como puedes hacerlo:

Código [Seleccionar] Expandir


Dim BaseDatos As Database
Dim Direccion, Tabla As String
Dim Rs As Recordset

Private Sub Form_Load()

Direccion = App.Path & "\perfumeria.mdb"   'asignamos la ruta
Set BaseDatos = OpenDatabase(Direccion)  'abrimos la base de datos
Tabla = "Select * From cantidad_de_stock"   'asignamos la tabla
Set Rs = BaseDatos.OpenRecordset(Tabla)   'abrimos el campo de la tabla
Stock.Text = Rs!Stock                                 'mostramos el contenido del campo en el textbox

End Sub


o tambien puedes hacerlo usando el control data ...

Código [Seleccionar] Expandir


Private Sub Form_Load()

Data1.DatabaseName = App.Path & "\perfumeria.mdb"    'abrimos la base de datos de acces
Data1.RecordSource = "cantidad_de_stock"     'abrimos la tabla de la base de datos
Data1.Refresh                                               'refrescamos por si hay cambios

Stock.Text = Data1.Recordset!Stock    'asignamos el contenido del campo al textbox para que lo visualize

End Sub


tambien puedes usar el control adodc o sentencias sql .. pero lo mas facil de leer, modificar, escribir datos es usando el control data o adodc asi como declarando la conexión database y recordset ...

Salu2.