
April 7th, 2003, 11:15 PM
|
|
Registered User
|
|
Join Date: Mar 2003
Posts: 3
Time spent in forums: < 1 sec
Reputation Power: 0
|
|
|
ill try and add some of my code here and see if any one can figure it out for me...<br>' the '*** is the stuff i have added to the code. i have no other ideas other than this as to what to do.<br>' if someone could please i would like to know what i can put in this Qry to get the userfirstname<br><br>' in TblUser there are fields. userlogon, userpass, userfirstname, userlastname, usercity, userstate.<br><br>Function GetUser(ByVal userLogon As String, ByVal userPass As String) As System.Data.DataSet<br> Dim connectionString As String = "server='localhost'; user id='PAVAK'; password='PAVAK'; Database='FacServReq'"& _<br>""<br> Dim sqlConnection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)<br> Dim queryString As String = "SELECT [TblUser].* FROM [TblUser] WHERE (([TblUser].[UserLogon] = @UserLogon) AND"& _<br>" ([TblUser].[UserPass] = @UserPass))"<br> Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)<br> sqlCommand.Parameters.Add("@UserLogon", System.Data.SqlDbType.Char).Value = userLogon<br> sqlCommand.Parameters.Add("@UserPass", System.Data.SqlDbType.Char).Value = userPass<br>'***<br>dim userfirst as string<br>sqlCommand.Parameters.Add("@userfirstname", System.Data.SqlDbType.Char).Value = userfirst<br>TxtFirst.text = userfirst<br>'***<br> Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCommand)<br> Dim dataSet As System.Data.DataSet = New System.Data.DataSet<br> dataAdapter.Fill(dataSet)<br> Return dataSet<br>End Function
|