Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Oledb1 As New OleDbConnection
Oledb1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\Library.mdb"
Oledb1.Open() '開啟資料庫
If ConnectionState.Open Then '判斷資料庫目前是否為打開狀態
Dim Cmd1 As New OleDbCommand
Cmd1.Connection = Oledb1 '建立連接
Cmd1.CommandText = "Insert into 借書人(姓名,電話) values('" + TextBox1.Text + "'" + ",'" + TextBox2.Text + "')" '建立新增資料的SQL字串
Cmd1.ExecuteNonQuery() '執行不會傳回任何值的查詢
Oledb1.Close() '關閉資料庫
End If
End Sub
uj5u.com熱心網友回復：
代碼段如下：Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Oledb1 As New OleDbConnection
Oledb1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\gms.mdb"
Oledb1.Open() '打開資料庫
Dim pwd As String = "select count(*) from users where user_pwd='" & TextBox1.Text & "'and user_pwd='" & TextBox2.Text & "'"
Dim dsCmd As New OleDbCommand(pwd, Oledb1)
Dim pwd1 As String = dsCmd.ExecuteScalar()
If pwd1 = 1 Then
Form1.Show() : Me.Hide()
Else : TextBox2.Text = "" : MsgBox("用戶名或密碼錯誤，請重新輸入！")
End If
End Sub
select查詢能回傳出值無問題，但是要delete表中的資料無效 求解 謝謝
uj5u.com熱心網友回復：
沒看到你那一句是洗掉的.你Oledb1.Execute("delete from xxx where YYY")試試就知道了
uj5u.com熱心網友回復：
沒看到你洗掉的命令在哪轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/155917.html
上一篇：1、如何將螢屏的影像放到dc中；2、如何再將dc中的影像根據滑鼠單擊、拖動坐標加框后放到螢屏上.
下一篇：VB作業，求高手做下。。