مشاهده نسخه کامل
: mhdsoft
04-06-2007, 19:36
من یک کد نوشتم که یک دیتابیس اکسس می سازه بعد دو تا جدول در اون ایجاد می کنه و در داخل یکی از جدولها 2000 4 تا ستون ایجاد میکنه و سپس 2000 recordset ایجاد میکنه حالا می خوام این جدول را در یک کنترل دیتا گرید نشون بدم هر کاری می کنم نمی شه !
لطفا کمکم کنید.
dblocation = App.Path & "\mine.mdb"
If Dir$(dblocation) <> "" Then Kill (dblocation)
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Jet OLEDB:Engine Type=5" & ";Data Source=" & dblocation
Cat.Create connstring
Cnn.Open connstring
Tbl.Name = "TBL ONE"
Tbl.Columns.Append "Col_11"
Tbl.Columns.Append "Col_12"
Tbl.Columns.Append "Col_13"
Tbl.Columns.Append "Col_114"
Cat.Tables.Append Tbl
Set Tbl = New ADOX.Table
Tbl.Name = "Param"
Tbl.Columns.Append "No"
Tbl.Columns.Append "A"
Tbl.Columns.Append "B"
Tbl.Columns.Append "C"
Cat.Tables.Append Tbl
Cat.Tables.Refresh
rec.Open "Param", connstring, adOpenStatic, adLockOptimistic
t1 = Timer
Set DataGrid1.DataSource = rec
DataGrid1.DataMember = "Param"
DataGrid1.Refresh
For i = 0 To 2000
rec.AddNew
rec.Fields("No") = Str$(i)
rec.Fields("A") = Str$(i) & "2"
rec.Fields("B") = Str$(i) & "3"
rec.Fields("C") = Str$(i) & "4"
Next i
t2 = Timer
MsgBox "Writing " & Str$(rec.RecordCount) & " records took about " & Str$(t2 - t1) & " seconds."
rec.Update
rec.Close
Set Cat = Nothing
Set Tbl = Nothing
Set Cnn = Nothing[/LEFT]
لطفا کمکم کنید.
dblocation = App.Path & "\mine.mdb"
If Dir$(dblocation) <> "" Then Kill (dblocation)
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Jet OLEDB:Engine Type=5" & ";Data Source=" & dblocation
Cat.Create connstring
Cnn.Open connstring
Tbl.Name = "TBL ONE"
Tbl.Columns.Append "Col_11"
Tbl.Columns.Append "Col_12"
Tbl.Columns.Append "Col_13"
Tbl.Columns.Append "Col_114"
Cat.Tables.Append Tbl
Set Tbl = New ADOX.Table
Tbl.Name = "Param"
Tbl.Columns.Append "No"
Tbl.Columns.Append "A"
Tbl.Columns.Append "B"
Tbl.Columns.Append "C"
Cat.Tables.Append Tbl
Cat.Tables.Refresh
rec.Open "Param", connstring, adOpenStatic, adLockOptimistic
t1 = Timer
Set DataGrid1.DataSource = rec
DataGrid1.DataMember = "Param"
DataGrid1.Refresh
For i = 0 To 2000
rec.AddNew
rec.Fields("No") = Str$(i)
rec.Fields("A") = Str$(i) & "2"
rec.Fields("B") = Str$(i) & "3"
rec.Fields("C") = Str$(i) & "4"
Next i
t2 = Timer
MsgBox "Writing " & Str$(rec.RecordCount) & " records took about " & Str$(t2 - t1) & " seconds."
rec.Update
rec.Close
Set Cat = Nothing
Set Tbl = Nothing
Set Cnn = Nothing[/LEFT]