با سلام
لطفا اشكال كد زير را بفرمائيد چون موقع اجرا به خط زير اشكال ميگيرد
MyQuery = "INSERT INTO Tel (Name,Famil,Number,Adress,List) VALUES ('" & a1(i) & "','" & a2(i) & "','" & a3(i) & "','" & a4(i) & "','" & Val(a5(i)) & "')"
Set My_Recordset = My_Connection.Execute(MyQuery)
Dim a1(1 To 1000)
Dim a2(1 To 1000)
Dim a3(1 To 1000)
Dim a4(1 To 1000)
Dim a5(1 To 1000)
Dim a6(1 To 1000)
Dim k
Dim My_Connection As ADODB.Connection
Dim My_Recordset As ADODB.Recordset
Set My_Connection = New ADODB.Connection
My_Connection.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\1.mdb;" & "Jet OLEDB:Database"
My_Connection.Open
MyQuery = "SELECT * FROM Contacts ORDER BY LastName"
Set My_Recordset = My_Connection.Execute(MyQuery)
If My_Recordset.EOF = True Then
My_Recordset.Close
My_Connection.Close
Exit Sub
End If
i = 1
While Not My_Recordset.EOF
a1(i) = My_Recordset.Fields(1)
a2(i) = My_Recordset.Fields(3)
a3(i) = My_Recordset.Fields(30)
a4(i) = My_Recordset.Fields(31)
a5(i) = My_Recordset.Fields(37)
a6(i) = My_Recordset.Fields(40)
i = i + 1
My_Recordset.MoveNext
Wend
My_Recordset.Close
My_Connection.Close
k = i - 1
Set My_Connection = New ADODB.Connection
My_Connection.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\Tel.mdb;" & "Jet OLEDB:Database"
My_Connection.Open
For i = 1 To k
MyQuery = "INSERT INTO Tel (Name,Famil,Number,Adress,List) VALUES ('" & a1(i) & "','" & a2(i) & "','" & a3(i) & "','" & a4(i) & "','" & Val(a5(i)) & "')"
Set My_Recordset = My_Connection.Execute(MyQuery)
Next i
My_Recordset.Close
My_Connection.Close
با تشكر
پاسخ با نقل قول
