vb+access相关,
本人工作中需要手工填写很多操作记录,我想逐步将它系统化,但我的vb能力实在不行,搞个access搞了n天还没搞定,现求教众大虾一些关键地方:1。如何将txt和option...
本人工作中需要手工填写很多操作记录,我想逐步将它系统化,但我的vb能力实在不行,搞个access搞了n天还没搞定,现求教众大虾一些关键地方:
1。如何将txt和optionbutton的值添加到access表中
2。表的主健是autonum,第二个字段为当天日期,如何写入
求代码~ 展开
1。如何将txt和optionbutton的值添加到access表中
2。表的主健是autonum,第二个字段为当天日期,如何写入
求代码~ 展开
1个回答
展开全部
在VB中可以通过引ADO,然后用SQL来访问ACCESS数据库。
先添加 ADO 2.6的引用
这个应该会加吧?在工程菜单下面----引用,选择
Microsoft Activex Data Objects 2.6 Library
然后添加一个模块,在模块中申明:
Public Rs As New ADODB.Recordset
Public conn As New ADODB.Connection
再在form_load时加载数据库:
Private Sub Form_Load()
dFile = "d:\test.mdb"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dFile
conn.Open
End Sub
然后就可以在其他地方使用SQL了,添加、查询、删除,随便做了。
你的两个问题其实都是写入的问题,比如表名是 sheet1,字段名为xdate,日期型,现在,写入当前日期
sql="select * from sheet1"
rs.open sql,conn,1,3
rs.addnew
rs("xdate")=date
rs.update
rs.close
sql的基本操作会吧?如果也不会.....没办法了。
先添加 ADO 2.6的引用
这个应该会加吧?在工程菜单下面----引用,选择
Microsoft Activex Data Objects 2.6 Library
然后添加一个模块,在模块中申明:
Public Rs As New ADODB.Recordset
Public conn As New ADODB.Connection
再在form_load时加载数据库:
Private Sub Form_Load()
dFile = "d:\test.mdb"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dFile
conn.Open
End Sub
然后就可以在其他地方使用SQL了,添加、查询、删除,随便做了。
你的两个问题其实都是写入的问题,比如表名是 sheet1,字段名为xdate,日期型,现在,写入当前日期
sql="select * from sheet1"
rs.open sql,conn,1,3
rs.addnew
rs("xdate")=date
rs.update
rs.close
sql的基本操作会吧?如果也不会.....没办法了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询