sahar_82614
دوشنبه 30 فروردین 1389, 19:56 عصر
سلام
من از متد ado استفاده می کنم
و دستوری لازم دارم توی برنامم که وقتی فرم جستجو دوباره load میشه datagrid از اطلاعات قبلی پاک شود و آن دستور رو کجا بنویسم؟
Private Sub KewlButtons3_Click()
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bayegani;Data Source=sh"
c = Text3.Text
sql = "select pno1 as 'áǘ ÇÕáí',pno2 as 'áǘ ÝÑÚí',name as 'äÇã',elat as 'ÚáÊ',date1 as 'ÊÇÑíÎ ÑÝÊ',date2 as 'ÊÇÑíÎ ÈÑÔÊ',comment as 'ÔÑÍ' from bahar where name= '" & c & "'"
rst.Open sql, cnn, 3, 1, adCmdText
Set DataGrid1.DataSource = rst
Text1.Text = DataGrid1.ApproxCount
Set cnn = Nothing
Set rst = Nothing
End Sub
من از متد ado استفاده می کنم
و دستوری لازم دارم توی برنامم که وقتی فرم جستجو دوباره load میشه datagrid از اطلاعات قبلی پاک شود و آن دستور رو کجا بنویسم؟
Private Sub KewlButtons3_Click()
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bayegani;Data Source=sh"
c = Text3.Text
sql = "select pno1 as 'áǘ ÇÕáí',pno2 as 'áǘ ÝÑÚí',name as 'äÇã',elat as 'ÚáÊ',date1 as 'ÊÇÑíÎ ÑÝÊ',date2 as 'ÊÇÑíÎ ÈÑÔÊ',comment as 'ÔÑÍ' from bahar where name= '" & c & "'"
rst.Open sql, cnn, 3, 1, adCmdText
Set DataGrid1.DataSource = rst
Text1.Text = DataGrid1.ApproxCount
Set cnn = Nothing
Set rst = Nothing
End Sub