INFORMATICA Y OCIO

Aprendiz · Conociendo Foroz Registrado: 24 Sep 2004 Mensajes: 28

solamente quisira saber como loccar los datos en el

con esta busqueda

rso= db.openrecordset(select usuario form usuario)

quiero colocar el campo usuario en el datalist

gracias por la uyuda

Link · Forero Registrado: 07 Sep 2004 Mensajes: 123

aqui tienes amigo:

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "usuarios"
Set DataList1.RowSource = Adodc1
DataList1.ListField = "nombre"
End Sub

lo que hace este codigo es meter el campo nombre de la tabla usuarios en el datalist1

lo que vendria a ser : select nombre from usuarios ...si quieres que sea otro campo de la tabla usuarios solo le tienes que cambiar la propiedad listfield del datalist1 ...y obviamente el nombre de tu base de datos en la propiedad connectionstring del adodc1 (todo esta en el codigo)
esto lo hice usando un adodc por que es un origen de datos oledb y solo con esos trabaja el datalist un objeto database como ese no funcionara con el datalist tendrias que crear un objeto adodb.connection para que funcione o usar el adodc ....si necesitas un codigo con el objeto adodb.connection pidelo y lo posteare

saludos

Invitado · Publicado: Lun Dic 27, 2004 6:58 am **Título del mensaje**:

Gracias compañero,

y sera el mismo codigo para el control listbox

gracias te lo agradeceria mucho,

Link · Forero Registrado: 07 Sep 2004 Mensajes: 123

no es nada Very Happy

para el listbox no es el mismo codigo copia este codigo en un editor de texto y guardalo como *.frm

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4305
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 4305
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command2
Caption = "Borrar"
Height = 375
Left = 240
TabIndex = 2
Top = 2760
Width = 1215
End
Begin VB.ListBox List1
Height = 2010
Left = 960
TabIndex = 1
Top = 360
Width = 2775
End
Begin VB.CommandButton Command1
Caption = "Refrescar"
Height = 375
Left = 1920
TabIndex = 0
Top = 3000
Width = 1695
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Dim db As Database
Dim r As Recordset

Private Sub Command1_Click()
Set r = db.OpenRecordset("select * from usuarios")
List1.Clear
r.MoveFirst
For i = 0 To r.RecordCount
List1.AddItem r("nombre")
r.MoveNext
Next
End Sub

Private Sub Command2_Click()
List1.Clear
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\base.mdb")
Set r = db.OpenRecordset("select * from usuarios")
r.MoveFirst
For i = 0 To r.RecordCount
List1.AddItem r("nombre")
r.MoveNext
Next
End Sub

esta usa una coneccion simple de base de datos en la parte que te tienes que fijar es en
Set db = OpenDatabase(App.Path & "\base.mdb")
Set r = db.OpenRecordset("select * from usuarios")
r.MoveFirst
For i = 0 To r.RecordCount
List1.AddItem r("nombre")
r.MoveNext
Next

lo que hace esto es crear dos objetos uno para la coneccion y otro el recordset luego se mueve al parimer registro de ahi se realiza un bucle de acuerdo al numero de registros y se los añade uno por uno al list box con la sentencia: list1.additem r("nombre")

esa sentencia añade al list 1 el campo nombre de la tabla usuarios ...solamente ese campo aunque es posible agregar cualquier numero de campos

bueno espero que te sirva

saludos

	Índice del Foro Foroz comunity :: Programación	Todas las horas están en GMT + 1 Hora
Página 1 de 1