VB实现ACCESS数据库记录的查询,新增,删除,修改
VB实现ACCESS数据库记录的查询,新增,修改,保存,删除功能数据是用adodc加DataGrid连接ACCESS数据库,想在窗体中实现新增,查询,修改,保存,删除按钮...
VB实现ACCESS数据库记录的查询,新增,修改,保存,删除功能
数据是用adodc加DataGrid连接ACCESS数据库,想在窗体中实现新增,查询,修改,保存,删除按钮,不知道些具体的代码
有类似代码和程序的告诉我下
有程序的发我邮件E_Mail:gongze02@163.com 展开
数据是用adodc加DataGrid连接ACCESS数据库,想在窗体中实现新增,查询,修改,保存,删除按钮,不知道些具体的代码
有类似代码和程序的告诉我下
有程序的发我邮件E_Mail:gongze02@163.com 展开
3个回答
展开全部
给你发了一个程序,源文件,界面+代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |