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

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

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

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

'引用对象库“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不存在...

什么列表框,说清楚!VB中数据显示控件比较多,你这里的列表框就没有办法知道是什么。

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