vb连access的问题,原代码是连sql的。帮忙指点一下!
下面这段代码本来是连sql的
这两天转到连access怎么改呢? 我的access这个数据库的文件存在c盘根目录下面 ssq.mdb
Private Sub Command2_Click()
Dim ZhwgCon As New ADODB.Connection
Dim ZhwgRS As New ADODB.Recordset
ZhwgCon.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ssq;Data Source=(local)"
ZhwgRS.CursorLocation = 3 '设置游标类型
ZhwgCon.Open
ZhwgRS.Open "update ssq set new=1 where new=0", ZhwgCon '选择打开的表,后面的 ,ZhwgCon 必须有
ZhwgCon.Close
Form1.Caption = "动态过滤系统 数据库复原已完成!"
End Sub
这两天转到连access怎么改呢? 我的access这个数据库的文件存在c盘根目录下面 ssq.mdb
Private Sub Command2_Click()
Dim ZhwgCon As New ADODB.Connection
Dim ZhwgRS As New ADODB.Recordset
ZhwgCon.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ssq;Data Source=(local)"
ZhwgRS.CursorLocation = 3 '设置游标类型
ZhwgCon.Open
ZhwgRS.Open "update ssq set new=1 where new=0", ZhwgCon '选择打开的表,后面的 ,ZhwgCon 必须有
ZhwgCon.Close
Form1.Caption = "动态过滤系统 数据库复原已完成!"
End Sub
作者: zhwg1224 发布时间: 2011-06-15
传说有一个叫adodb的控件,找到它。然后按向导联接,就生成你需要的字串了,copy就行。很容易做到吧!!
作者: cqq_chen 发布时间: 2011-06-15