Question

用VB中的ADO和Datagrid控件做个数据库程序,要求有添加、删除、查询、修改等功能，并且可以显示图中信息。

请高手教下，要完整代码 谢谢！

Answer 1

1、新建一个子窗体Form7
2、子窗体Form7的MDIChild属性设置为True
3、在主窗体上设计一个子菜单，标题为“模糊查询”
4、在菜单的Click事件里面写以下代码：
Dim frm As New Form7
frm.Show
5、在子窗体Form7上画一个DataGrid控件
画一个Label控件，属性AutoSize设为True,Caption属性设置为“请输入要查询的名称：”
6、在子窗体Form7上画一个Text控件,把Text属性删除。
7、在Text控件的Change事件里面写如下代码：
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
SqlStr = "Select * From 用户表 where 用户名称 Like '%" & Text1.Text & "%'"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源

追问

主窗口那点几模糊查询就显示错误

追答

自己改动一下啊