[]
visual basic ile ilgili -acil-
şimdi bir mdb dosyası, iki tablo var. biri combobox'tan, diğeri text üzerinden olmak üzere arama yapmak istiyorum. combobox'taki bilgi aratılınca tablo1'deki veriler, text'teki aratılınca da tablo2'deki veriler msgbox'a gelmeli. gereken kod nedir?
VB6 ile yaptığını varsayarak
Combobox için :
Set Rs = Conn.OpenRecordset("select * from tablo1 where field_name like '%" & combo1.text & "%'")
With Rs
If .RecordCount > 0 Then
Msgbox(rs("field_name"))
End if
End with
Set rs=nothing
Textbox için :
Set Rs = Conn.OpenRecordsetselect * from tablo2 where field_name like '%" & text1.text & "%'")
With Rs
If .RecordCount > 0 Then
Msgbox(rs("field_name"))
End if
End with
set rs=Nothing
Combobox için :
Set Rs = Conn.OpenRecordset("select * from tablo1 where field_name like '%" & combo1.text & "%'")
With Rs
If .RecordCount > 0 Then
Msgbox(rs("field_name"))
End if
End with
Set rs=nothing
Textbox için :
Set Rs = Conn.OpenRecordsetselect * from tablo2 where field_name like '%" & text1.text & "%'")
With Rs
If .RecordCount > 0 Then
Msgbox(rs("field_name"))
End if
End with
set rs=Nothing
- solo
(09.12.10 15:22:50)
1
