22-02-16, 06:30 PM
Dim connect As String = "Provider=Microsoft.Jet.OLEDB.4.0 ;Jet OLEDB
atabase Password='123321';Data Source=" & Application.StartupPath & "\dbkarneh.mdb"
Using conn As New OleDbConnection(connect)
Using cmd As New OleDbCommand()
cmd.Connection = conn
cmd.CommandText = "SELECT * INTO [MS Access;Database Password='123321';Data Source=" & Application.StartupPath & "\dbkarneh1.mdb].[student] FROM [student]"
conn.Open()
cmd.ExecuteNonQuery()
End Using
End Using
MsgBox("تم التسويه بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, " ")
يعطي خطأ
Invalid argument.
atabase Password='123321';Data Source=" & Application.StartupPath & "\dbkarneh.mdb"Using conn As New OleDbConnection(connect)
Using cmd As New OleDbCommand()
cmd.Connection = conn
cmd.CommandText = "SELECT * INTO [MS Access;Database Password='123321';Data Source=" & Application.StartupPath & "\dbkarneh1.mdb].[student] FROM [student]"
conn.Open()
cmd.ExecuteNonQuery()
End Using
End Using
MsgBox("تم التسويه بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, " ")
يعطي خطأ
Invalid argument.

