ارتباط Ado با msflexgrid

[niko2008]

سلام دوستان من کد ارتباط ado با msflexgrid رو میخوام ؟ و همچنین روش جستجو با ado در flex رو لطفا کمک کنید؟

[majjjj]

چیزی که میخواهید ربطی به نوع گریدتون نداره شما میتونید از این گرید هم مثل سایر گریدها استفاده کنید
برای جستجوهم میتونید از دستور

select * from table1 where name like '"& ali &"'

استفاده کنید

[nima_8m]

سلام
از این کد واسه ارتباط گرید با بانک میتونی استفاده کنی

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

[niko2008]

سلام دوستان عزیز من از این کد در vsflex8 استفاده میکنم ولی نمیدونم چرا در این کد If Flex.TextMatrix(i, 0) = "" , ارور میده

For i = 1 To Flex.Rows
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

[niko2008]

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

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 باید از صفر حلقه بخوره