dim odbcConn As New Odbc.OdbcConnection("DSN=......;uid=sa;pwd=;")
dim mComm as new odbc.odbccommand
dim mRead as odbc.odbcdatareader
mComm .connection=odbcConn
mComm .commandtext="select * from table"
mread=mComm.ExecuteReader()
while mread.read
....
'可以使用mread(0),mread(1)表示表中的列值
....
呵呵,没有那么可怕吧!
如果只是想读出数据来浏览,而且数据比较多,我觉得使用datareader不错啊。使用时,可以用
While yourdatareader.Read
end while来读出数据
或者使用dim myrow as datarow
for each myrow in mydatareader
相反 ,如果想对读出的数据进行交互,还是使用dataset,但如果只是登录或读出数据,就用datareader吧!
参考一下:
Try
If conn.State = ConnectionState.Closed Then conn.Open()
Dim mycom As New SqlCommand("select khmc from khxxb", conn)
Dim mdr As SqlDataReader = mycom.ExecuteReader
ComboBox1.Items.Clear()
While mdr.Read
ComboBox1.Items.Add(RTrim(mdr(0)))
End While
mdr.Close()
conn.Close()
Catch ex As Exception
If conn.State = ConnectionState.Open Then conn.Close()
MsgBox(ex.Source & ex.Message)
End Try