Also wenn ich das richtig verstehe, willst du mit VB eine Verbindung zu einer Datenbank herstellen, z.B. MS SQL Server.
Dieser VB Code ermöglicht das:
Option Explicit
Private cnnOrders As New ADODB.Connection
Private rstOrders As New ADODB.Recordset
Private strConnect As String
Private strSQL As String
Private Sub Form_Load()
strConnect = "provider=MSDASQL;driver={SQL Server};server=SERVER01;" & _
"pwd=;database=Versand"
With cnnOrders
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.Open strConnect
End With
strSQL = "SELECT DISTINCT * FROM KUNDE ORDER BY KUNDEN_NR"
Set rstOrders = cnnOrders.Execute(strSQL)
Do Until rstOrders.EOF
cboKundenNr.AddItem rstOrders.Fields(0).Value
rstOrders.MoveNext
Loop
cboKundenNr.ListIndex = 0
rstOrders.Close
End Sub
Ich hoffe das Hilft dir, wenn du was anderes meinst dann schreibe.
