ftsg.net
当前位置:首页 >> VB二维数组如何添加到ACCESS数据库中!! >>

VB二维数组如何添加到ACCESS数据库中!!

Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strsql As String Dim cnstr As String conn.CursorLocation = adUseClient cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= db1.mdb;Jet OLEDB:Database Passwor...

说说思路: 这个显然要用ADO 1、连接数据库,得到连接对象conn 2、用下面的select语句打开表,将数据读入RecordSet set rs=conn.execute("select * from 表名") 3、用循环将数据读入二维数组arr row=0 while not rs.eof arr[row,0]=rs["id"] arr...

以下代码能使用的前提是库引用、和数据库连接代码正确: 两种办法,一种是 用SQL,另一种是ADO 1、用SQL添加数据: insert into 表名(字段1,字段2,字段3) values(值01,值02,值03) 例如: docmd.runsql"insert into EmpTable(Name,age,Dut...

Set Db = OpenDatabase(App.Path & "\user.DBF", False, False, ";pwd=7994") '数据库USER,打开需要密码7994 Set Rs = Db.OpenRecordset("KSCJ") ’ACCESS表的名称为KSCJ Set Rs = Db.OpenRecordset("select * from KSCJ where [考号]='" & Use...

Dim db As adodb.Connection '定义了一个连接db Dim rs As adodb.Recordset '定义了一个记录集rs '==============初始化设置============== Set db = New adodb.Connection '设置db是一个连接对象 db.CursorLocation = adUseClient db.Open "PRO...

Dim Con As New ADODB.Connection '定义ADO对象Dim Rs As New ADODB.RecordsetPrivate Sub Command1_Click() If Text1.Text = "" Then '控制增加值不能为空 MsgBox "请正确输入年龄", 48, "提示信息" Else Con.ConnectionString = "Provider=Mic...

首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能...

'引用对象库“Microsoft ActiveX Data Objects 2.8 Library” '引用对象库“Microsoft ADO Ext 2.8. For DDL Security”,简称为ADOX path1 = Dir(App.Path & "\dat.mdb") '检测文件是否存在 If path1 = "" Then Text1.Text = "数据库dat.mdb不存在...

我们可以实现一次执行多条数据库操作,但是请注意代码实际上是一条一条进行的,执行一条后再执行下一条语句,多条语句是不能同时执行的。例如下面代码一次执行两个操作: Private Sub Command1_Click()Dim cn As New ADODB.Connection,cnStr As S...

首先要在工程的引用中选上Microsoft ActiveX Data Objects 2.5 Library 然后在事件中就可以定义相关的变量进行连接了 下面的例子可能对您有用: Private Sub Command1_Click() Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset ...

网站首页 | 网站地图
All rights reserved Powered by www.ftsg.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com