level 6
PCDLRN
楼主
Dim r As New Random
Dim cmm As OleDbCommand
Dim cnn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\qc12\QC6\二次开发\a1.mdb")
cnn.Open()
Dim i
For i = 1 To 100
Dim sql = "INSERT INTO T1(姓名,语文,数学,英语) VALUES('王五'," & r.Next(1, 100) & "," & r.Next(1, 100) & "," & r.Next(1, 100) & ")"
cmm = New OleDbCommand(sql, cnn)
cmm.ExecuteNonQuery()
Next
cnn.Close()
cmm = Nothing
cnn = Nothing
2013年05月25日 03点05分
1
Dim cmm As OleDbCommand
Dim cnn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\qc12\QC6\二次开发\a1.mdb")
cnn.Open()
Dim i
For i = 1 To 100
Dim sql = "INSERT INTO T1(姓名,语文,数学,英语) VALUES('王五'," & r.Next(1, 100) & "," & r.Next(1, 100) & "," & r.Next(1, 100) & ")"
cmm = New OleDbCommand(sql, cnn)
cmm.ExecuteNonQuery()
Next
cnn.Close()
cmm = Nothing
cnn = Nothing
