vb连接access 数据库并将结果输出到文本框。在线等高手

想把数据库里的东西显示到文本框里。添加了一个按钮当点击按钮之后将数据分别显示到对应的文本框。在线等，

作者: Successful051 发布时间: 2011-06-16

要用SQL语句，返回数据后在放到TextBox里，三两句说不清楚，帮你顶一下
C# code


        //-----------------------------------------------------------------------------
        //-----------------------------------------------------------------------------
        public static DataTable OleDbExecuteReader(string connStr, string OleDbStatements, params OleDbParameter[] OleDbParameters)
        {
            using (DataTable dt = new DataTable())
            {
                using (OleDbConnection conn = new OleDbConnection(connStr))
                {
                    if (conn.State != ConnectionState.Open) conn.Open();
                    using (OleDbCommand cmd = new OleDbCommand(OleDbStatements, conn))
                    {
                        cmd.Parameters.Clear();
                        foreach (OleDbParameter SqlParameter in OleDbParameters)
                        {
                            cmd.Parameters.Add(SqlParameter);
                        }
                        using (OleDbDataAdapter da = new OleDbDataAdapter(cmd))
                        {
                            da.Fill(dt);
                        }
                        return dt;
                    }
                }
            }
        }

虽然是C#代码，但是和VB一样的，稍稍翻一下就好，这只是个示例，（OledbHelper）这是底层代码，需要放入SQL语句，参数等，返回后用DataTable 的Row[0]再放到文本框里

作者: ztzname 发布时间: 2011-06-16

VB.NET code

      
                   Dim connectionstring As String
                   connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pigsystem\pigsystem\zmsf.mdb"
                   Dim querystring As String = "Select * from 数据库中的表 where 表中的字段='" &字段显示的条件& "'"  '这个意思按某个字段的某种条件确定你要显示的数据库行的位置
                   Dim conn As New OleDb.OleDbConnection(connectionstring)
                    Try
                        conn.Open()
                        Dim cmd As New OleDb.OleDbCommand(querystring, conn)
                        Dim reader As OleDb.OleDbDataReader
                        reader = cmd.ExecuteReader()
                        reader.Read()
                        textbox1.text = reader("表中的字段1")
                        textbox2.text = reader("表中的字段2")
                        ........
                  Catch ex As Exception
                  End Try

这个是基本的读取数据库的代码，把这个写到某个Button_Click下面就可以实现你要的功能。

作者: zzc6913 发布时间: 2011-06-16

引用 2 楼 zzc6913 的回复:
VB.NET code

Dim connectionstring As String
connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pigsystem\pigsystem\zmsf.mdb"
……

或者改用DataSet都可以
接楼上的代码
VB.NET code


Dim connectionstring As String
                   connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pigsystem\pigsystem\zmsf.mdb"
                   Dim querystring As String = "Select * from 数据库中的表 where 表中的字段='" &字段显示的条件& "'"  '这个意思按某个字段的某种条件确定你要显示的数据库行的位置
                   Dim conn As New OleDb.OleDbConnection(connectionstring)
                    Try
                        conn.Open()
                        Dim cmd As New OleDb.OleDbCommand(querystring, conn)
                        'Dim reader As OleDb.OleDbDataReader
                        dim TempDs as new dataSet
                        dim Da as Oledb.OledbdataAdapter=New Oledb.OledbdataAdapter(cmd)
                        Da.Fill(TempDs,"Table1")
                        conn.Close
                        if TempDs.Table("Table1").Rows.Count<1 then
                        Exit Sub
                        End If
                        textbox1.text = tempDs.Table("Table1").Rows(0).Item("字段1")  
                       textbox2.text = textbox1.text = tempDs.Table("Table1").Rows(0).Item("字段2")
                        ........
                  Catch ex As Exception
                  End Try

作者: Tosp2012 发布时间: 2011-06-16

vb连接access 数据库并将结果输出到文本框。在线等高手

热门频道