ehsan957
چهارشنبه 09 اسفند 1385, 10:20 صبح
Private Sub dbconnect()
Dim Filepath As String = MapPath("~/App_Data/link.mdb")
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Filepath
Dim conn As New OleDb.OleDbConnection(connString)
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = conn
conn.Open()
cmd.Parameters.Add("@link", OleDb.OleDbType.LongVarChar).Value = TextBox1.Text
cmd.Parameters.Add("@address", OleDb.OleDbType.LongVarChar).Value = TextBox2.Text
cmd.CommandText = "INSERT INTO links (link,address,counter) VALUES ('@link','@address',0)"
cmd.ExecuteNonQuery()
conn.Close()
End Sub
این SUB بخسی از یک کد برای یک صفحه با ASP.NET است در موقع debugging یک خطا با عنوان Syntax error in Insert INTO statementمی دهد.
Dim Filepath As String = MapPath("~/App_Data/link.mdb")
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Filepath
Dim conn As New OleDb.OleDbConnection(connString)
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = conn
conn.Open()
cmd.Parameters.Add("@link", OleDb.OleDbType.LongVarChar).Value = TextBox1.Text
cmd.Parameters.Add("@address", OleDb.OleDbType.LongVarChar).Value = TextBox2.Text
cmd.CommandText = "INSERT INTO links (link,address,counter) VALUES ('@link','@address',0)"
cmd.ExecuteNonQuery()
conn.Close()
End Sub
این SUB بخسی از یک کد برای یک صفحه با ASP.NET است در موقع debugging یک خطا با عنوان Syntax error in Insert INTO statementمی دهد.