hallo,
ich bin noch ein anfänger, aber ich will trozdem meinen sql datenbank nach Kundenummern durchsuchen und die ganzen Daten von dieser Kunden in txtfeldern wieder geben. Ich habe da schon was zusammengestellt komme aber nicht weiter.
Was fehlt oder was muss geändert werden?
Private Sub B_Suchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Suchen.Click
getSearch(I_SuchKundennummer.Text)
End Sub
Sub getSearch(ByVal KdNr As String)
Dim lSQL As String
Dim lRS As New WebDB.Connection
Dim lresult As DataSet
Dim ConfigData As System.Collections.Specialized.NameValueCollection = ConfigurationSettings.AppSettings
Try
lRS.Init(ConfigData("DB_Server"), "WebConnect", ConfigData("DB_User"), ConfigData("DB_Password"))
lSQL = ""
lSQL = lSQL + "Select * from Users where Kundennummer = '" & KdNr & "'"
lresult = lRS.GetDataSet(lSQL, "Users")
Catch ex As Exception
Finally
lRS.Close()
lRS = Nothing
End Try
End Sub
ich bin noch ein anfänger, aber ich will trozdem meinen sql datenbank nach Kundenummern durchsuchen und die ganzen Daten von dieser Kunden in txtfeldern wieder geben. Ich habe da schon was zusammengestellt komme aber nicht weiter.
Was fehlt oder was muss geändert werden?
Private Sub B_Suchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Suchen.Click
getSearch(I_SuchKundennummer.Text)
End Sub
Sub getSearch(ByVal KdNr As String)
Dim lSQL As String
Dim lRS As New WebDB.Connection
Dim lresult As DataSet
Dim ConfigData As System.Collections.Specialized.NameValueCollection = ConfigurationSettings.AppSettings
Try
lRS.Init(ConfigData("DB_Server"), "WebConnect", ConfigData("DB_User"), ConfigData("DB_Password"))
lSQL = ""
lSQL = lSQL + "Select * from Users where Kundennummer = '" & KdNr & "'"
lresult = lRS.GetDataSet(lSQL, "Users")
Catch ex As Exception
Finally
lRS.Close()
lRS = Nothing
End Try
End Sub
