ارتباط Ado با msflexgrid

سلام دوستان من کد ارتباط 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

نقل قول:

---

نوشته شده توسط xxxxx_xxxxx

اینو امتحان کنید:

For i = 1 To Flex.Rows -1

If Flex.TextMatrix(i, 0) = "" Then Exit For

With SANADADO.Recordset

.AddNew

---

باز هم error میده If Flex.TextMatrix(i, 0) = "" . نمیدونم میتونه از تعداد سطرها (flex.rows=?) باشه؟

نقل قول:

---

نوشته شده توسط niko2008

باز هم error میده If Flex.TextMatrix(i, 0) = "" . نمیدونم میتونه از تعداد سطرها (flex.rows=?) باشه؟

---

با تشکر از جناب xxxxx_xxxxx خیلی ممنون ار راهنمایتان فقط i باید از صفر حلقه بخوره