1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| Function verifier_db(ByVal lastname)
Dim conn As New SqlConnection
Dim reader As SqlDataReader
Dim serverName As String = "basemaster"
conn.ConnectionString = "packet size=4096;user id=wpmreports;pwd=welcome;data source=""" & serverName & """;persist security info=False;initial catalog=DSDB"
conn.Open()
Dim cmd As SqlCommand
cmd = Nothing
cmd = New SqlCommand("SELECT PERSON.PERSON_ID, PERSON.FIRSTNAME, PERSON.LASTNAME, PERSON.INTERNET_ADD FROM PERSON WHERE (((PERSON.LASTNAME)=' " + lastname + " '));", conn)
reader = cmd.ExecuteReader
Dim tab(3) As String
While reader.Read
tab(0) = reader.GetString(0) 'person_id
tab(1) = reader.GetString(1) 'firstname
tab(2) = reader.GetString(2) 'lastname
tab(3) = reader.GetString(3) 'email
lbl2.Text = tab(3)
End While
reader.Close()
conn.Close()
Return tab
End Function
Sub Page_Load()
Dim firstname As String = string1.Value
Dim lastname As String = string2.Value
Dim table(3) As String
table = verifier_db(lastname)
lbl1.Text = "welcome " & string1.Value & " " & string2.Value
End Sub |
Partager