VB访问ACCESS数据库
我做了个数据库（ACCESS）我想用VB程序可以查询 像是记事本似得，不用修改也不用什么的 VB中只要有个显示的就可以 数据库文件名叫 zm 里面数据也是 zm 谁帮我 写下代码，我一点VB都不会，麻烦了。成功多加分！我明天晚上来看！
说下代码吧！我的是用2000以上的VB也是SP6了
简简单单的明白点，我学过设计！对软件的应用有了解！
把你设计的步骤，代码写下来！我可以加分的，最少加20！
算了！还是没有合适的！ 谁能发给我个邮件啊，直接作出来的！数据库是空的！由我自己添加！
越简单越好！谢谢了
我学网络的，回答点问题，赚的积分都送帮我解决问题的人
1。新建EXE工程，拖一个DATA控件进窗体！
2。点中FORM1窗体中的DATA控件，设置它的DatabaseName,按你的说法应该是个叫 zm.mdb的文件。
3.拖一个TEXT控件进来，用来显示数据库里的内容
4.设置这个TEXT的DATASOURCE为DATA1（就是刚才拖进来的DATA控件，设置它的
DATAFIELD 为要显示的字段（ACCESS数据库里的字段）的内容。
5。运行后，你点DATA控件上的 左，右 箭头 就可以按顺序显示数据了。
假如你的ACCESS数据库是用ACCESS2000或者更高版本创建的，你还需要安装VB6的SP6补丁才可以支持~百度去找了下载吧~
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-04-25
先在添加两个部件，adodc控件，和datagrid控件
点菜单 工程－－部件，把Microsoft ADO Data control 6.0 和 Microsoft DataGrid Control 6.0 打钩，按确定就可以了。
在窗体上放一个 adodc控件和datagrid控件。
添加以下代码：
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\zm.mdb;Persist Security Info=False" '如果数据库与程序不载同一个目录下，把app.path 改为数据库的具体路径就可以了
Adodc1.RecordSource = "zm" 'zm是表名称？
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
End Sub本回答被提问者采纳
点菜单 工程－－部件，把Microsoft ADO Data control 6.0 和 Microsoft DataGrid Control 6.0 打钩，按确定就可以了。
在窗体上放一个 adodc控件和datagrid控件。
添加以下代码：
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\zm.mdb;Persist Security Info=False" '如果数据库与程序不载同一个目录下，把app.path 改为数据库的具体路径就可以了
Adodc1.RecordSource = "zm" 'zm是表名称？
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
End Sub本回答被提问者采纳
第2个回答 2009-04-26
建立一新工程后：
1、新建模块，增加这些内容
'全局变量
Public rs1 As New ADODB.Recordset
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
'连接数据库
Public Function ConnectDB(strDb As String) As String
On Error GoTo ErrH:
With cn
If .State <> adStateClosed Then .Close
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDb & ";"
.ConnectionTimeout = 30
.CursorLocation = adUseClient
.Open
End With
Exit Function
ErrH:
ConnectDB = "连接数据库失败:" & Err.Description
End Function
2、增加DATAGRID1控件，一个text控件。
3、增加一按钮，代码如下
ConnectDB (app.path & "zm.mdb")
rs.CursorLocation = adUseClient '设置客户端游标
rs.Open "select * from zm where 拼音助记符 like '" & Text1.Text & "%' ", cn, 1, 1
Set DataGrid1.DataSource = rs
DataGrid1.Columns(0).Width = 500
DataGrid1.Columns(1).Width = 5000
DataGrid1.Columns(2).Width = 1000
DataGrid1.Columns(3).Width = 1500
DataGrid1.Columns(4).Width = 1500
DataGrid1.Columns(5).Width = 1500
DataGrid1.Columns(6).Width = 1300
‘宽度可调，如真需要，这里面的有些东东自己修改，仅此而已
1、新建模块，增加这些内容
'全局变量
Public rs1 As New ADODB.Recordset
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
'连接数据库
Public Function ConnectDB(strDb As String) As String
On Error GoTo ErrH:
With cn
If .State <> adStateClosed Then .Close
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDb & ";"
.ConnectionTimeout = 30
.CursorLocation = adUseClient
.Open
End With
Exit Function
ErrH:
ConnectDB = "连接数据库失败:" & Err.Description
End Function
2、增加DATAGRID1控件，一个text控件。
3、增加一按钮，代码如下
ConnectDB (app.path & "zm.mdb")
rs.CursorLocation = adUseClient '设置客户端游标
rs.Open "select * from zm where 拼音助记符 like '" & Text1.Text & "%' ", cn, 1, 1
Set DataGrid1.DataSource = rs
DataGrid1.Columns(0).Width = 500
DataGrid1.Columns(1).Width = 5000
DataGrid1.Columns(2).Width = 1000
DataGrid1.Columns(3).Width = 1500
DataGrid1.Columns(4).Width = 1500
DataGrid1.Columns(5).Width = 1500
DataGrid1.Columns(6).Width = 1300
‘宽度可调，如真需要，这里面的有些东东自己修改，仅此而已
参考资料：经验之谈
第3个回答 2009-04-25
没学过VB弄这个干嘛？出什么问题了都不知道该怎么调试。。。
相似回答