سلام.
استاد من با استفاده از این کتابخونه شماره رندوم ساختم و توی دیتابیس ذخیره کردم
اما وقتی تعداد رفت بالا، برنامه فورس میشه و این خطارو میده:
اینم کدامه
Private Sub pat_DoInBackground(Params() As Object) As Object
For i=1 To i_count
a=Rnd(0,9)
b=Rnd(0,9)
c=Rnd(0,9)
d=Rnd(0,9)
e=Rnd(0,9)
f=Rnd(0,9)
g=Rnd(0,9)
items=sp_pish_number.SelectedItem&a&b&c&d&e&f&g
sql.ExecNonQuery2("INSERT INTO tbl_contacts (name,number) VALUES (?,?) ",Array As String _
(txt_name.Text& " ",items))
pat.PublishProgress(Array As Object(i))
Next
Return i
End Sub
به نظرتون مشکل کجاست؟!