سلام
عزیز جان
VB6 از سیستم ADO استفاده میکرد در حالی که در دات نت، تکنولوژی ADO.Net را داریم.
اگر مایل به ادامه کار راحت و بی دقدقه در VB8 هستید پیشنهاد میکنم قبل از ادامه کار حتماً کتابی در خصوص ADO.Net2 خریداری و مطالعه کنید.
میتوانم الآن جواب سوالتان را با کد چند خطی و با استفاده از DataTable یا DataReader و یا دستور ExecuteScalar بدهم ولی اینطور تا ابد و به صورت مدام با پیاده سازی های ADO.Net و تفکرات ADO خود دچار مشکل خواهید بود.
به هر حال این جواب (فرض میکنم فیلدها Integer هستند)
1
Dim iRet As Integer
Using dbCon As New System.Data.SqlClient.SqlConnection("CONNECTIONSTRING")
Using dbCom As New System.Data.SqlClient.SqlCommand("SELECT fieldname FROM tablename WHERE keyfield=55442", dbCon)
dbCon.Open()
iRet = CInt(dbCom.ExecuteScalar)
End Using
End Using
2
Dim iRet As Integer
Dim dt As New System.Data.DataTable
Using dbDA As New System.Data.SqlClient.SqlDataAdapter("SELECT * FROM tablename", "CONNECTIONSTRING")
dbDA.Fill(dt)
End Using
'سطر صفرم
iRet = CInt(dt.Rows(0).Item("fieldname"))
'کلید=55442
iRet = CInt(dt.Rows.Find(55442).Item("fieldname"))
'جستجوی پیشرفته تر
iRet = CInt(dt.Select("keyfield=55442")(0).Item("fieldname"))
و...