سوال: چگونه در vb6 ما می توانیم توسط فامیل کد آن را بدست آوریم؟

[naseri1152]

چگونه بر اساس فیلد فامیل می توان فیلد کد آن شخص را بدست آورد؟

من یک مثال میزنم منتها آز BOF آن اشکال می گیرد؟ با توجه به دستور زیر چگونه می توان از روی فیلد فامیل شخص کد آن شخص را فراخوان کرد: ما یک کومبوباکس داریم که فامیل اشخاص در آن نمایش داده شده است می
خواهم بر روی هر شخص که کلیک کنم کد آن شخص را در تکست باکس نشان دهد:
اسم کومبوباکس: cbofamily
اسم تکست باکس: txtkodmohaqiq
میخواهم وقتی روی فامیل در داخل کومبو باکس کلیک میکنم (انتخاب میکنم) کد آن شخص را در تکست باکس بنویسد.
Set rs1 = cnn.Execute("select * from arzyabha where " & _
"id =" & cbofamily.ItemData(cbofamily.ListIndex) & "")
txtkodmohaqiq.Text = rs1!codemarahel

[SlowCode]

ساده ترين راه اينه كه ديتا فيلد يه تكست باكس رو برابر با فيلد آي دي كني.
ولي راه ديگه اي هم هست اگه نتيجه نگرفتي بگو تا اونو بگم.

[naseri1152]

منظورتو درست متوجه نشدم اگر با مثال جواب بدید ممنون میشم در مثال اول مطلبم بالا خودم همین کار را کردم....

[SlowCode]

txtkodmohaqiq.DataSource = rs1
"txtkodmohaqiq.Datafield = "id

اینا رو اول بنویس تا مقادیر به طور خودکار توی تکست باکس نشون داده شه، بعد کد جستجوی خودت رو بنویس.

[naseri1152]

محسن جان نشد؟ تا ما از شیوه دستی برنامه نویسی استفاده میکنم از DataSource و... استفاده نمیکنم؟ لطفا شماره تماس خودت رو برام بزار ممنون یا به naseri1152@gmail.com ایمیل کن/ممنون

[SlowCode]

خوب اگه دستي كار ميكني از اين كد كه قبلا از آقاي m.t.p (http://barnamenevis.org/member.php?132020-M.T.P) گرفته بودم.
دستورات اس کیو ال رو میریزید تو یه رشته String

بعد رکوردست رو باهاش باز می کنید.

کد زیر رو ببینید:

Dim obConnection As ADODB.Connection
Dim obRecordset As ADODB.Recordset

Private Sub Command1_Click()
Dim strSql As String

strSql = "SELECT SUM(column_name) As fldSum FROM table_name"

obRecordset.Open strSql, obConnection, 3, 2

'Commands...
End Sub

در کد بالا رکوردست دارای یک فیلد مجازی با عنوان fldSum هست که مقدارش مجموع تمامی رکورد های فیلد Column_name هست.

و به این شکل میشه مقدارش رو خوند:
Text1.Text = obRecordset("fldSum").Value

دستور جستجوي خودت رو با دستور بالا جايگزين كن.