Hallo Zusammen,
ich fange gerade ganz neu mit VB an.
ich möchte eine Telefonnummer in einer Datenbank suchen und den Namen dazu ausgeben lassen.
Ich bekomme immer die Meldung "System.__ComObject" und nicht den eigentlichen Name.
Viele Dank
Gruß
Josh
ich fange gerade ganz neu mit VB an.
ich möchte eine Telefonnummer in einer Datenbank suchen und den Namen dazu ausgeben lassen.
VB.NET-Quellcode
- Function AnruferName()
- Dim Nummer As String = "+491542245211"
- Dim Name As String
- Dim sDsn As String
- sDsn = "Provider=Microsoft.Jet.OLEDB.4.0;" &
- "Data Source=c:\gse_demo\Kontakt.mdb"
- Dim db
- db = CreateObject("ADODB.Connection")
- db.Open(sDsn)
- Dim sSQL
- Dim rs
- sSQL = "select Name from T_Rufnummer where Rufnummer = '" & Nummer & "'"
- rs = CreateObject("ADODB.Recordset")
- rs.Open(sSQL, db, adOpenDynamic, adLockOptimistic, adCmdText)
- Do Until rs.EOF
- Name = rs.Fields(0).ToString()
- MessageBox.Show(Name)
- rs.MoveNext
- Loop
- rs.Close
- rs = Nothing
- db.Close
- db = Nothing
- End Function
Ich bekomme immer die Meldung "System.__ComObject" und nicht den eigentlichen Name.
Viele Dank
Gruß
Josh