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...

VB6.0可用ADO Data 控件访问和操作数据库,读取数据表的数据,通过嵌套循环将数据表内容赋值给一个二维数组。 ADO Data 控件,这是一种新的、OLEDB 识别的数据源控件,其功能与内部的 Data 控件和 Remote Data 控件十分相似,通过这种方式允许用...

以下代码能使用的前提是库引用、和数据库连接代码正确: 两种办法,一种是 用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...

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

你的代码中有两处明显的错误: 一是rs.AddNew的位置不对;二是rs.Update更新后记录指针已在最后了,rs.MoveNext不能执行。 如果你的a(j, i + 1)没有错误的话,可以改成下面这样: If Not rs.BOF Then For j = 1 To 4 rs.AddNew For i = 0 To rs....

奇怪,我昨晚明明回答了这个问题的,今天怎么看不到答案了呢? 如果你确认a(j, i + 1)定义正确的话,请试试下面的语句。。 If Not rs.BOF Then rs.AddNew For j = 1 To 4 For i = 0 To rs.Fields.Count - 1 rs(i) = a(j, i + 1) Next i rs.Updat...

用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[row,1]=rs["year"] ar...

'在工程---部件中添加 microsoft ADO data contcrol 6.0 '在窗体添加两个adodc控件,分别连接好数据库和所需导入导出的表 'adodc1连接要导入的表,adodc2连接要导出的表 Private Sub Command1_Click() Dim i, j As Integer Adodc2.Refresh If Ad...

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