vb中的for 循环 和 数据库中插入多条记录
2005-06-16 01:38
387 查看
dim i as Integer
for i=0 to 10
statement
next i
-----------------------------------------------------------------
Public Sub Command1_Click3(recordCount As Integer)
'首先,从html table中提取出表头(传为参数)(no)
'在本地新建一个mdb文件,各字段为表头(ok)
'打开mdb文件,循环写入表体数据(ok)
Dim cat As New ADOX.Catalog
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim i As Integer
' pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51
pstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=d://firstdb.mdb" '!还要改进,让用户自己选择存在本地的路径
cat.Create pstr '创建数据库
Dim tbl As New Table
cat.ActiveConnection = pstr
tbl.Name = "tangdb" '表的名称
tbl.Columns.Append "编号", adInteger '表的第一个字段
tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段
tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段
cat.Tables.Append tbl '建立数据表
conn.Open pstr
rs.CursorLocation = adUseClient
rs.Open "tangdb", conn, adOpenKeyset, adLockPessimistic
For i = 0 To recordCount
rs.AddNew '往表中添加新记录
'插值
rs.Fields(0).Value = i
rs.Fields(1).Value = "唐辉天"
rs.Fields(2).Value = "tetdmis"
rs.Update
rs.MoveNext
Next i
End Sub
for i=0 to 10
statement
next i
-----------------------------------------------------------------
Public Sub Command1_Click3(recordCount As Integer)
'首先,从html table中提取出表头(传为参数)(no)
'在本地新建一个mdb文件,各字段为表头(ok)
'打开mdb文件,循环写入表体数据(ok)
Dim cat As New ADOX.Catalog
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim i As Integer
' pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51
pstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=d://firstdb.mdb" '!还要改进,让用户自己选择存在本地的路径
cat.Create pstr '创建数据库
Dim tbl As New Table
cat.ActiveConnection = pstr
tbl.Name = "tangdb" '表的名称
tbl.Columns.Append "编号", adInteger '表的第一个字段
tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段
tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段
cat.Tables.Append tbl '建立数据表
conn.Open pstr
rs.CursorLocation = adUseClient
rs.Open "tangdb", conn, adOpenKeyset, adLockPessimistic
For i = 0 To recordCount
rs.AddNew '往表中添加新记录
'插值
rs.Fields(0).Value = i
rs.Fields(1).Value = "唐辉天"
rs.Fields(2).Value = "tetdmis"
rs.Update
rs.MoveNext
Next i
End Sub
相关文章推荐
- sql向数据库中循环插入多条记录
- 一次向数据库中插入多条相同记录的SQL方法(只有一个列不同)
- 插入多条记录到数据库的性能优化一小点
- Oracle 循环向数据库中插入记录
- 用一条SQL语句实现向数据库中插入多条记录的方法
- 如何向后台数据库插入多条记录?
- 一次向数据库插入多条记录
- 如何向后台数据库中插入多条记录?
- 用复数value一次给数据库插入多条记录
- 使用jdbc向数据库中插入多条记录,探究有索引和没有索引的查询速度的代码
- 用一条SQL语句实现向数据库中插入多条记录的方法
- 刚刚做了一个小项目,存在一个问题,就是如何在数据库中插入多条记录
- Visual Studio 2017 - Windows应用程序打包成exe文件(2)- Advanced Installer 关于Newtonsoft.Json,LINQ to JSON的一个小demo mysql循环插入数据、生成随机数及CONCAT函数 .NET记录-获取外网IP以及判断该IP是属于网通还是电信 Guid的生成和数据修整(去除空格和小写字符)
- 利用smarty,从数据库中循环输出每一条记录
- mysql中插入多条记录-微软批处理
- SQL Server:使用一个语句块插入多条记录
- 一次插入多条记录的SQL语句介绍
- Java防止重复数据多次调用接口导致数据库插入重复记录
- sql中插入多条记录-微软批处理
- SQL Server:使用一个语句块插入多条记录