maryam_vb
چهارشنبه 14 آذر 1386, 13:50 عصر
با سلام
Dim conn AsNew OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\calendar.mdb")
Dim adap AsNew OleDb.OleDbDataAdapter("select title,matn,saat,dagh from messages2 where tarikh='" & s & "'", conn)
Dim ds AsNew DataSet
conn.Open()
adap.Fill(ds, "messages2")
Combohour.DataBindings.Add(New Binding("?", ds, "messages2.saat")
جای علامت سوال چه مقداری باید قرار بگیره؟
چه جوری باید بین کمبو و فیلد ار تباط برقرار کنم تا مقدار کمبو معادل مقدار فیلد قرار بگیره؟
Dim conn AsNew OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\calendar.mdb")
Dim adap AsNew OleDb.OleDbDataAdapter("select title,matn,saat,dagh from messages2 where tarikh='" & s & "'", conn)
Dim ds AsNew DataSet
conn.Open()
adap.Fill(ds, "messages2")
Combohour.DataBindings.Add(New Binding("?", ds, "messages2.saat")
جای علامت سوال چه مقداری باید قرار بگیره؟
چه جوری باید بین کمبو و فیلد ار تباط برقرار کنم تا مقدار کمبو معادل مقدار فیلد قرار بگیره؟