dim aAppString2 as string
查询语句为
"select DoctorPatientID from DoctorPatient where DoctorId='" & Trim(ComboBox1.Text) & "' and PatientId='" & Trim(ComboBox2.Text) & "'"
请问我要如何取得符合条件的数据库中的值呢？并把它付给 AppString2

会写SQL语法而不会取得数据……
晕

可以用dataset ，也可以用datareader，个有个的好处，datareader快，dataset可以修改

一个比较简单的办法，就是读到DATATABLE中
再用DATATABLE.ROW(x)(y)赋值给aAppString2

再用DATATABLE.ROWS(x)(y)赋值给aAppString2

<1>先写查询语句，正如你所写
<2>然后决定将其读入DataReader(不能修改，只读，减少系统开销）或者是DataSet(可以修改，内存中的一块数据表)中
在从里面取数据
<3>代码如下：
Dim mycon As sQlConnection
mycon.Open()
Dim mycom As New Sqlcommand(sqlstr,mycon)
Dim myda As New SqlAdapter(sqlstr,mycon)
Dim aAppString2 As string
如果你想用数据阅读器
Dim myreader As sqlReader
myreader=mycom.ExecuteReader
While myreader.Read
aAppString2=myreader('列名')
End while
如果你想用Dataset
Dim myset As New Dataset
myda.Fill(myset,'aa')
aAppString2=myset.Tables(aa).Rows(x)(y)