VB.NET三种读SQL数据库命令实例一ADODB

Dim cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim rst As New ADODB.Recordset

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=class.mdb"

cnn.open()

Dim sql As String = "select * from class where classname like'%" + cclassname.Text + "%' or ccode like'%" + cclassname.Text + "%'"

rs.Open(sql,cnn,1,1)

If Not (rs.EOF And rs.BOF) Then

cclassname.Text = rs(1).Value.ToString() & "--" & rs(2).Value.ToString()

End If

Do While Not rs.EOF

cclassname.Items.Add(rs(1).Value.ToString() & "--" & rs(2).Value.ToString())

rs.MoveNext()

Loop

rs.Close()

rs = nothing

cnn.Close()