سلام ...
فکر نمیکنم خیلی شلوغ بشه ... برعکس برنامه خواناتر میشه ...
Dim constr As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\database.mdb"
Dim cn As New OleDbConnection(constr)
strsql = "insert into driver (sid,accid,accname,time) VALUES (@sid,@accid,@accname,@time)"
Dim cmd As New OleDbCommand (strsql, cn)
With cmd.Parameters
.AddWithValue("@sid", getsid)
.AddWithValue("@accid",getaccid )
.AddWithValue("@accname",getaccname )
.AddWithValue("@time", gettime)
end with
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
دیگه مشکل کوتیشن("") و سینگل کوتیشن(' ') و امپرسند(&) و ... نداری!!!