[atefkhalf2004]

معلهش يا استاذ
انا غعلا معرفتش
وحاولت التنسيق والتعديل لكن لم انج
برجاء تعديل الكود حسب القواعد والمسميات الواردة في مثالي

---

Dim constr As String = ((Convert.ToString("Provider=Microsoft.JET.OLEDB.4.0;data source=") & Application.StartupPath & "\dbkarneh.mdb") + ";Persist Security Info=False;")
Dim conn = New OleDbConnection(constr)
Dim yescommander = New OleDbCommand()
conn.Open()

dbkarneh.ForEach(Sub(tableName As [String])

yescommander.CommandType = CommandType.Text
yescommander.Connection = conn
yescommander.CommandText = (Convert.ToString("SELECT f.* INTO " & student & " FROM " + student + " AS f IN '") & Application.StartupPath) + "';"
Dim result As Integer = yescommander.ExecuteNonQuery()

توجد اخطاء اتمني ان تتحملننا وتحل لكن المشكلة