Visual basic 6.0

Private Sub AccesorioEquipo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


Dim cnn As New OleDbConnection(connstring) 'aqui no va la ruta, tienes que pones el connection string
cnn.Open()

Dim Consulta As String ="select * from Accesorioequipo"
OleDbcommand cmd =New OleDb.OleDbCommand(Consulta, cnn)

Dim da As New OleDbDataAdapter(cmd)
Dimdt As New DataTable
da.Fill(dt)


IdequipoComboBox.DataSource = dt
IdequipoComboBox.DisplayMember = "IDequipo"

End Sub




tengo una tabla de una  bases de datos llamada email  con los campos carnet,email  quiero llenar el campos email con la informacion  de un texbox( que reciba el nombre de email) y un conboBox(q reciba la compañia del email) como es el codigo para hacer esto?de ante mano gracias por la ayuda
podrias usar
Dim mail As String = String.Format("{0}@{1}", txtnombre.Text, cmbcompañia.Text)





Ejemplo 1
Ejemplo simple que permite cargar los registros de una tabla en controles DataList y DataCombo ( Microsoft DataList controls )
Para el ejemplo agregar la referencia Microsoft Activex Data Objects para usar ado y el ocx Microsoft DataList controlsEn el mismo se utiliza la base de datos nwind.mdb que se instala con visual basic.
En el control DataCombo y DataList se cargan los registros de la tabla " categorías " de dicha base de datos.
En el DataCombo se especifíca el campo "NombreCategoría". En el DataList el campo "Descripción"
Nota: el ejemplo solo carga los registros, pero no los relaciona. Al final de la página hay otro ejemplosimilar pero que relaciona los dos controles
 
 
Código fuente en el formulario
Texto planoImprimir
1. Option Explicit  
2.   
3. ' Variables para la conexión y para el recordset  
4. Dim conexion As ADODB.Connection  
5. Dim objRec As ADODB.Recordset  
6.   
7.   
8. Private Sub Form_Load()  
9.   
10.     ' nueva conexión ado  
11.     Set conexion = New ADODB.Connection  
12.   13.     ' Abre la conexión  
14.     With conexion  
15.         .Provider = "Microsoft.Jet.OLEDB.4.0"  
16.         .ConnectionString = "Data Source = C:\Archivos de programa\Microsoft" & _  
17.                             " Visual Studio\VB98\nwind.mdb"  
18.       
19.         .Open  
20.     End With  
21.   
22.     ' Nuevo Recordset  
23.     Set objRec = New ADODB.Recordset  24.   
25.     ' Propiedades del Recordset  
26.     With objRec  
27.         .CursorLocation = adUseClient  
28.         ' Abre el recordset indicando la tabla  
29.         .Open "Categorías", conexion, adOpenStatic, adLockOptimistic, adCmdTable  
30.     End With  
31.       
32.     'Control Datacombo  
33.     '----------------  
34.     Set DataCombo1.RowSource = objRec  
35.    ' campo a mostrar en el datacombo  
36.     DataCombo1.ListField = "NombreCategoría"  
37.       
38.     DataCombo1.DataField = "NombreCategoría"  
39.     Set DataCombo1.DataSource = objRec  
40.       
41.     'Control Datalist  
42.     '----------------  
43.       
44.     ' campo a mostrar en el DataList  
45.     DataList1.ListField = "Descripción"  
46.       
47.    Set DataList1.RowSource = objRec  
48.       
49.   
50. End Sub  
51.   
52. Private Sub Form_Unload(Cancel As Integer)  
53.       
54.     ' Descarga y cierra el recordset  
55.     If Not objRec.State = adStateClosed Then  
56.         objRec.Close  
57.     End If  
58.     If Not objRec Is Nothing Then  
59.         Set objRec = Nothing  
60.     End If  
61.       
62.    ' cierra la conexión ado  
63.     If Not conexion.State = adStateClosed Then  
64.         conexion.Close  
65.     End If  
66.       
67.     If Not conexion Is Nothing Then  
68.         Set conexion = Nothing  
69.     End If  
70.       
71. End Sub  
 

Relacionar un DataCombo y un DataList
Este ejemplo es exactamente igual al anterior, lo único es que se especifica en la propiedad...