|
分類:[VB.NET]
分類:[VB.NET]
tomoと言います。
「日経BP社/ひと目でわかるMsVB.NETデータベース開発入門」を参考にログイン画面を作成中です。こちらの参照内容外で申し訳ありません。
IDとpasswordを入力し正しければメインメニューを表示させたいと考えています。
現在Accessのテーブルには、OleDb接続を行っているのですが、どのように変更するのか…
大変未熟者で申し訳ないのですが、ご教授の程宜しくお願いします。
Public dbCtrl As DbControl
Protected Overridable Sub findData()
Dim cmd As SqlClient.SqlCommand = SqlConnection1.CreateCommand()
Dim dr As SqlClient.SqlDataReader
cmd.Connection = SqlConnection1
SqlConnection1.Open()
cmd.CommandText = "SELECT password FROM tbl_logon where UID='" & txtuserId.Text & "'"
dr = cmd.ExecuteReader()
If dr.Read Then
If RTrim(dr("password")) = txtpassword.Text Then
MsgBox("IDを認証できました。")
Me.DialogResult = DialogResult.OK
Else
MsgBox("パスワードの間違えです")
End If
Else
MsgBox("IDの間違えです")
End If
dr.Close()
scn.Close()
End Sub
DbControlの内容
Public Class DbControl
Private oleCn As New OleDb.OleDbConnection
Public Sub DbConnect()
Dim StrCn As String
Dim dbName As String
dbName = dbName & "c:＼Test＼Test.mdb"
StrCn = " Provider=Microsoft.jet.OLEDB.4.0;"
StrCn = StrCn & " Data Source=" & dbName
oleCn.ConnectionString = StrCn
Try
oleCn.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Function getDataTable(ByVal Sql As String) As DataTable
Dim oleDa As OleDb.OleDbDataAdapter
Dim dtTbl As New DataTable
Try
oleDa = New OleDb.OleDbDataAdapter(Sql, oleCn)
oleDa.Fill(dtTbl)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return dtTbl
End Function
Public Function executeSql(ByVal Sql As String) As Boolean
Dim oleCmd As OleDb.OleDbCommand
Try
oleCmd = New OleDb.OleDbCommand(Sql, oleCn)
oleCmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
executeSql = False
End Try
Return True
End Function
End Class
|