vb学习笔记-链接access数据库

参考资料

1.vb从入门到精通

2.文档：http://wenku.baidu.com/view/f551f57101f69e3143329453.html

搭建数据库：

打开access->新建->选择空数据库-设计器创建表-设计视图

具体看入门到精通的资料的422页

最后建的东东

然后  vb链接access

过程看资料

中间的按钮代码

Private Sub Command1_Click()
Dim strSql As String
If Text1.Text <> "" Then
   Adodc1.Recordset.Close
   If Val(Text1.Text) > 0 Then
      strSql = "select * from table1 where ID=" & Trim(Text1.Text)
     End If
      Adodc1.CommandType = adCmdText
      Adodc1.Recordset.Open strSql
      
      Set DataGrid1.DataSource = Adodc1
      Else
      Set DataGrid1.DataSource = Nothing
      
      
      
      
    End If
    

  
End Sub

实在是太简单。。。我这个从来没见过的vb的秒秒钟就搞定了。。所以不写了。。