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