سلام دوستان من کد ارتباط ado با msflexgrid رو میخوام ؟ و همچنین روش جستجو با ado در flex رو لطفا کمک کنید؟
سلام دوستان من کد ارتباط ado با msflexgrid رو میخوام ؟ و همچنین روش جستجو با ado در flex رو لطفا کمک کنید؟
چیزی که میخواهید ربطی به نوع گریدتون نداره شما میتونید از این گرید هم مثل سایر گریدها استفاده کنید
برای جستجوهم میتونید از دستورselect * from table1 where name like '"& ali &"'استفاده کنید
سلام
از این کد واسه ارتباط گرید با بانک میتونی استفاده کنی
Private Sub Load_Vs()
Dim rs As New ADODB.Recordset
If conn.state = 1 Then conn.Close
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbase\bank.mdb;Persist Security Info=False"
If rs.state = 1 Then rs.Close
rs.Open "Select * From Anbar", conn, adOpenStatic, adLockOptimistic
Set VS.DataSource = rs
End Sub
روشهای زیادی هم واسه جستجو هست یکیش اینه
If Text1.Text <> "" Then
ado.RecordSource = "Select *from frosh where name='" & Text1.Text & "'"
ado.Refresh
Text1.Text = ""
Exit Sub
End If
سلام دوستان عزیز من از این کد در vsflex8 استفاده میکنم ولی نمیدونم چرا در این کد If Flex.TextMatrix(i, 0) = "" , ارور میده
For i = 1 To Flex.Rows
If Flex.TextMatrix(i, 0) = "" Then Exit For
With SANADADO.Recordset
.AddNew
اینو امتحان کنید:
For i = 1 To Flex.Rows -1
If Flex.TextMatrix(i, 0) = "" Then Exit For
With SANADADO.Recordset
.AddNew
الگوریتم هایی که تاریخچه خود را فراموش می کنند، محکوم به تکرار آن هستند.