OleDbDataReader和DataSet

-1

如何將此代碼更改爲VB.NET？所以我想使用DataSet而不是ADODB.Recordset和OleDb.OleDbConnection而不是ADODB.Connection。OleDbDataReader和DataSet

Set oRs = New ADODB.Recordset 
    oRs.Open ("Select * from Login Where Username= '" & txtUsername.Text & "'"),oCn,  adOpenStatic, adLockOptimistic, _ 
adCmdText 

If txtPassword.Text <> oRs.Fields("Password") Then 
Call MsgBox("Incorrect Password", vbOKOnly, "Login Error") 
txtPassword.Text = "" 
txtPassword.SetFocus 
Exit Sub 
Else 

strUserName = txtUsername.Text 'May need in the future project 
strName = oRs.Fields("FirstName") & " " & oRs.Fields("LastName") 
frmInstruction.Show

這是我到目前爲止已經試過：

Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM Login WHERE Username= '" & txtUsername.Text & "' AND password = '" & txtPassword.Text & "' ", oCn) 

Dim sdr As OleDbDataReader = cmd.ExecuteReader() 

If (sdr.Read() = True) Then 

strUserName = txtUsername.Text 

frmInstruction.Show() 

'but am having issue with this line of code: 
strName = oRs.Fields("FirstName") & " " & oRs.Fields("LastName")

來源

2012-07-10 Ajakaiye Taiwo Peter

你爲什麼大叫？ – 2012-07-10 22:16:09

編輯你的問題來安靜下來。你應該告訴我們你已經嘗試了什麼，沒有自己努力的簡單的代碼轉換問題並不是非常受歡迎。 – 2012-07-10 22:27:46

我現在更新我的問題.... PLZ幫助。 thanx – 2012-07-11 08:42:33

「但我有與這行代碼的問題：則strName = oRs.Fields（「名字」）& 「」 & oRs.Fields（「姓」）

你可以使用OledbDataReader.GetString讀取名字和姓氏字段：

Dim firstName = sdr.GetString(sdr.GetOrdinal("FirstName")) 
Dim lastName = sdr.GetString(sdr.GetOrdinal("LastName")) 
strName = firstName & " " & lastName

來源

2012-07-11 08:50:12

thankx Man ..... thatz我需要thanx如此之多 – 2012-07-11 09:24:36

@AjakaiyeTaiwoPeter：不客氣。請記住接受最有幫助的答案。 http://meta.stackexchange.com/questions/5234/how-does-accepting-an-answer-work – 2012-07-11 09:38:59

OleDbDataReader和DataSet

回答

相關問題