VB实现ACCESS数据库记录的查询，新增，删除，修改
VB实现ACCESS数据库记录的查询，新增，修改，保存，删除功能
数据是用adodc加DataGrid连接ACCESS数据库，想在窗体中实现新增，查询，修改，保存，删除按钮，不知道些具体的代码
有类似代码和程序的告诉我下
有程序的发我邮件E_Mail：gongze02@163.com
我有个程序和你说的差不多，也是用adodc加DataGrid连接ACCESS数据库做的，程序已发到你邮箱。还有不明白的发我信息，邮件里有我QQ
温馨提示：内容为网友见解，仅供参考
第1个回答 2008-04-09
给你发了一个程序，源文件，界面+代码
第2个回答 2008-04-02
Private Sub command()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn = "Provider = MSDASQL.1;" & "Password=***;" & "Persist Security Info=True;" & "User ID=name;" & "Extended Properties=DSN=datafile;"& "DBQ=D:\##\##\##.mdb;" & "DefaultDir=D:\##\##;" & "DriverId=25;" & "FIL=MS Access;" & "MaxBufferSize=2048;" & "PageTimeout=5;" & "PWD=***;" & "UID=name;"
conn.Open
Adodc1.RecordSource = "select * from 数据表名 where 查询条件
Adodc1.Refresh
DataGrid1.ClearFields
DataGrid1.HoldFields
DataGrid1.Refresh
End Sub
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn = "Provider = MSDASQL.1;" & "Password=***;" & "Persist Security Info=True;" & "User ID=name;" & "Extended Properties=DSN=datafile;"& "DBQ=D:\##\##\##.mdb;" & "DefaultDir=D:\##\##;" & "DriverId=25;" & "FIL=MS Access;" & "MaxBufferSize=2048;" & "PageTimeout=5;" & "PWD=***;" & "UID=name;"
conn.Open
Adodc1.RecordSource = "select * from 数据表名 where 查询条件
Adodc1.Refresh
DataGrid1.ClearFields
DataGrid1.HoldFields
DataGrid1.Refresh
End Sub
相似回答
