TextBox1.Text=Rs.fields(0)换成TextBox1.Text=Rs.fields("具体的字段名")s试试!
创新互联公司专业为企业提供文峰网站建设、文峰做网站、文峰网站设计、文峰网站制作等企业网站建设、网页设计与制作、文峰企业网站模板建站服务,10年文峰做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
这样就OK了
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql, conn_str As String
'conn_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\Visual Studio 2008\仓库\WindowsApplication1\ck.mdb;Persist Security Info=False "
conn_str = ConfigurationManager.ConnectionStrings("myconnectionstring").ConnectionString
sql = "select * from us "
conn = New ADODB.Connection
conn.Open(conn_str)
rs = New ADODB.Recordset
rs.Open(sql, conn, 3, 3)
Dim da As New System.Data.OleDb.OleDbDataAdapter
Dim ds As New DataSet
da.Fill(ds, rs, "us")
DataGridView1.DataSource = ds.Tables(0)
DataGridView1.Refresh()
vb.NET中也有ADODB.Recordset,但我们一般用SqlDataReader来实现相同的效果。
Adodb.RecordSet在VB.Net中相对应的是DataTable。这个东西比RecordSet灵活而且支持丰富的过滤及计算方法。