VB数据库的 删除 和查询

如果你的adodc1已经连接成功,请注意把datagied1与adodc1连接起来Set DataGrid1DataSource = Adodc1

这样行了吗

Private Sub Command2_Click()

Adodc1RecordSource = "select from nni where 姓名='" & Text1Text & "'" '这是查询 姓名=text1 的内容

Set DataGrid1DataSource = Adodc1

Adodc1Refresh

End Sub

朋友,,,我没有你的数据库,所以不能检测是否成功

还麻烦你运行一下并告诉结果(一切以实践为主)

希望这代码能帮你忙,,,请把分给我吧如果还有什么问题或不明白的地方,请放心大胆问这里好心人多得很,,,,,

如果我能回答,我尽力回答,如果我不能回答,,我非常乐意与你一起研究,学习

'需要控件:command1,command2,adodc1,datagrid1

Private Sub Command1_Click()

Adodc1RecordsetDelete

Adodc1Refresh

End Sub

Private Sub Command2_Click()

Adodc1RecordSource = "select from nni where 姓名='" & Text1Text & "'" '这是查询 姓名=text1 的内容

Set DataGrid1DataSource = Adodc1

Adodc1Refresh

End Sub

Private Sub Form_Load()

Command1Caption = "删除"

Command1Caption = "查询"

End Sub

帮你改了看可以吗？

有2种写法：

‘第一种

Dim conn As New ADODBConnection

Dim rs As New ADODBRecordset

Dim Str1 As String

Dim Str2 As String

Dim Str3 As String

Str1 = "Provider=MicrosoftJetOLEDB40;"

Str2 = "Data Source=d:\db1mdb;"

Str3 = "Jet OLEDB:Database Password="

connOpen Str1 & Str2 & Str3

strsql = "select from jieyong"

rsOpen strsql, conn, 3, 3

For i = 0 To rsFieldsCount - 1

if text1text = rsfields(i) then

rsdelete

rsmovenext

rsclose

else

msgbox("无该记录！")

end if

next

‘第二种

Dim conn As New ADODBConnection

Dim rs As New ADODBRecordset

Dim strsql AS String

connConnectionString = "provider=MicrosoftjetOLEDB40;" & _

"Persist security info= False; Data Source=d:\db1mdb"

connOpen

strsql = "select from jieyong where 栏位名 = '%" & text1text & "%'"

rsOpen strsql, conn, 3, 3

If rsRecordCount <> 0 Then

rsdelete

rsmovenext

rsclose

else

msgbox("无该记录！")

end if

next

当然，可以声明一个模块级变量，当用鼠标单击某一个 datagridview 控件的时候，就把该 datagridview 控件名赋予该模块级变量，然后在删除键的事件里，执行删除前，根据该模块级变量里保存的信息，来确定针对某个 datagridview 控件进行删除 *** 作。

不过还是建议你每一个 datagridview 控件 对应使用一个删除按钮。

        Dim myconn As New OleDbOleDbConnection

        Dim mycommand As New OleDbOleDbCommand

        myconnConnectionString = "Provider=MicrosoftaceOLEDB120;Data Source=C:\Users\Administrator\Documents\账号密码accdb "

        myconnOpen()

        mycommandConnection = myconn

        Dim sql5 As String = "delete from 表3 where userid='" & (TextBox1Text) & "'"

        mycommandCommandText = sql5

        mycommandCommandType = CommandTypeText

        mycommandExecuteNonQuery()

        Dim sql3 As String = "update 表2 set Balance=Balance-2 where UserID='" & (TextBox1Text) & "'"

        mycommandCommandText = sql3

        mycommandCommandType = CommandTypeText

        mycommandExecuteNonQuery()

        myconnClose()

以上就是关于VB数据库的 删除 和查询全部的内容，包括:VB数据库的 删除 和查询、VB中如何实现删除数据库的记录、vb.net窗口中存在多个datagridview表格，如何删除选中表格的数据及其绑定的数据库中的数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！