ميبايست از SQL استفاده كني
من نگفتم می بایست. گفتم اگه....
ميشه يه پروژه كوچيك از همون كه گفتي برام بزاري
منظورت یه پروژه که با Drag and Drop آبجکتها، با SQL ارتباط برقرار کرده یا به صورت دستی ؟
در مورد دستوراتی که نوشتی باید بگم که اولا این دستورات مربوط به چه قسمتی از پروژه ست ؟ آیا همه رو دستی نوشتید ؟
OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * FROM SH WHERE Daterooz = '" & LDate.Text & "' AND name = '" & ComboBoxSetTime.Text & "'"
توی دستوراتی که مستقیم توی کد برنامه نوشته میشه دستورات باید بین دوتا " قرار بگیرند. یعنی اینجوری:
OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * FROM SH WHERE Daterooz =" & LDate.Text & " AND name = " & ComboBoxSetTime.Text
برای دستورات update و insert هم همینجوری عمل کن.
یه نمونه کد که با SQL ارتباط برقرار کرده :
Dim cn As New SqlConnection("Data Source=.;Initial Catalog=DB Name;Integrated Security=True")
Dim sqlda As New SqlDataAdapter
Dim DS As New DataSet
Dim t As New DataTable("question")
DS.Tables.Add(t)
Dim c1 As New DataColumn("qpriority", GetType(Short))
t.Columns.Add(c1)
Dim c2 As New DataColumn("fid", GetType(Short))
t.Columns.Add(c2)
Dim c3 As New DataColumn("qid", GetType(Short))
t.Columns.Add(c3)
Dim c4 As New DataColumn("question", GetType(String))
t.Columns.Add(c4)
Dim c5 As New DataColumn("anstype", GetType(String))
t.Columns.Add(c5)
Dim col(0) As DataColumn
col(0) = c3
t.PrimaryKey = col
DataGridView1.DataSource = t
Dim cmd1 As New SqlCommand
cmd1.Connection = cn
cmd1.CommandType = CommandType.Text
cmd1.CommandText = "select * from ......"
sqlda.SelectCommand = cmd1
Dim b As New SqlCommandBuilder(sqlda)
sqlda.Fill(DS.Tables("question"))
این دستوره:
Dim b As New SqlCommandBuilder(sqlda)
باعث ساخته شدن دستورات insert , update , delete میشه. فقط کافیه یه آبجکت ازش بسازی.
توی Access هم همینطوریه فقط با این فرق که از Jet 4.0 , Provider استفاده میشه.