مشكل با كمبوباكس

[yshahab]

سلام
من يه مشكل با كمبوباكس دارم . كمبوباكس رو به ديتابيس متصل مي كنم ! و 3 تا تكست باكس هم در زيرش قرار مي دم تا با انتخاب كمبوباكس اطلاعات ديگر آن table به ترتيب در تكست باكس ها نمايش داده شود اما با عوض شدن كمبو باكس اطلاعات درون تكست باكس عوض نمي شه چرا ؟!

[xxxxx_xxxxx]

اون قسمت از برنامه رو اگه امكان داره قرار بديد.

[yshahab]

Private Sub cboselect_Click()
If Not frmview.adotelbook.Recordset.BOF Then
frmview.adotelbook.Recordset.MoveFirst
frmview.adotelbook.Recordset.Move (Val(cboselect.Text) - 1)
txtFname.Text = frmview.adotelbook.Recordset.Fields(1).Value
txtlName.Text = frmview.adotelbook.Recordset.Fields(2).Value
txtaddress.Text = frmview.adotelbook.Recordset.Fields(0).Value

End If
End Sub

Private Sub cmdok_Click()

frmview.adotelbook.Recordset.Fields(1).Value = txtFname.Text
frmview.adotelbook.Recordset.Fields(2).Value = txtlName.Text
frmview.adotelbook.Recordset.Fields(0).Value = txtaddress.Text
frmview.adotelbook.Recordset.Update
Unload Me
End Sub

Private Sub Form_Load()
'// Load Captions
Call LoadFormCaption(Me)


Dim OleDb As New ClassOleDb
Dim rs As New Recordset
Dim Cmnd As String
Dim i&, j&

'// Clear



Cmnd = "SELECT * From Article"
Set rs = OleDb.Fill(Cmnd)

'//Check EOF
If rs.EOF Then Exit Sub

rs.MoveFirst
Do
cboselect.AddItem rs.Fields("Code").Value

'// Move to next record
rs.MoveNext
Loop Until rs.EOF

'// SELECT 1st Item
cboselect.ListIndex = 0


'//Release Memory
Set rs = Nothing
Set OleDb = Nothing

End Sub

گيرم تو خط فرمان به رنگ قرمزه فكر كنم

[yshahab]

اگه عدد 1 2 3 4 5 6 7 باشه مشكلي نيست ولي حروف باشه مشكل داره

[xxxxx_xxxxx]

text box ها رو هم مثل ComboBox به فيلدها متصل كنيد.



اگه عدد 1 2 3 4 5 6 7 باشه مشكلي نيست ولي حروف باشه مشكل داره

چون شما به ado ميگيد برو به ركوردي كه شماره اش مقدار عددي داخل كمبو هست. پس اگه داخل كمبو چيزي غير از عدد باشه خطا ميده. شما بايد ListIndex رو بجاي مقدار عددي كمبو به ado بديد.

[yshahab]

text box ها رو هم مثل ComboBox به فيلدها متصل كنيد.


چون شما به ado ميگيد برو به ركوردي كه شماره اش مقدار عددي داخل كمبو هست. پس اگه داخل كمبو چيزي غير از عدد باشه خطا ميده. شما بايد ListIndex رو بجاي مقدار عددي كمبو به ado بديد.

ممنون مي شم توضيح بدين چجوري اينكارو انجام بدم ؟

[yshahab]

درست شد . ممنون رفيق