001
17.10.2005, 14:31 Uhr
Uwe
C/C++ Master
(Administrator)
|
Hallo,
Hoffe Du hast keine Beta von VB6 
Beispiel:
| Visual Basic: |
Private Sub ExecuteQuery(ByVal sPlz As String)
Dim conn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim sConn As String
Dim sSql = "SELECT Ort FROM t_ort WHERE PLZ = ?"
Dim dr As OleDb.OleDbDataReader
sConn = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;"
sConn += "Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Database Password=;Data Source="
sConn += """C:\DeinPath\ort.mdb"""
sConn += ";Password=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions=1;Provider="
sConn += """Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;Extended Properties=;"
sConn += "Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create System Database=False;"
sConn += "Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;"
sConn += "User ID=Admin;Jet OLEDB:Encrypt Database=False"
conn.ConnectionString = sConn
cmd.Connection = conn
cmd.CommandText = sSql
cmd.Parameters.Clear()
cmd.Parameters.Add("?", OleDb.OleDbType.VarChar)
cmd.Parameters(0).Value = sPlz
Try
If conn.State = ConnectionState.Closed Then conn.Open()
dr = cmd.ExecuteReader
While dr.Read()
Debug.WriteLine(dr("Ort"))
End While
Catch ex As Exception
MsgBox(ex.Message)
Finally
dr.Close()
conn.Close()
End Try
End Sub
|
Da mit mehr als einer Ergebnismenge zu rechnen ist, das DataReader Objekt.
Die Formatierung sieht aber Schei... aus.
--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."
Bis dann...
Uwe
Dieser Post wurde am 17.10.2005 um 17:22 Uhr von Uwe editiert. |
