如何在VB从sql 中读取数据 （初学者跪求）

vb.net

'命名空间

Imports System.Data

Imports System.Data.SqlClient

'定义变量

'连接数据库

Dim connstr As String = System.Configuration.ConfigurationSettings.AppSettings("connstr")

Dim sql_conn As New SqlConnection(connstr)

‘读取SQL数据到视图view1

public sub getdate()

Dim g_ap As New SqlDataAdapter("select * from tb1", sql_conn)

Dim g_d As New DataSet

g_ap.Fill(g_d)

view1.AutoGenerateColumns = False

view1.DataSource = g_d.Tables(0)

sub

会用vb数据库连接，你在vba种直接使用vb的方式即可

可参考下面的代码

－－－－－－－－－－－－－－－－－－

Public Function ConnectDB()

cs = "Provider=Microsoft.jet.OLEDB.4.0Data Source="

'conn.ConnectionString = CS &app.Path &"\Score5.mdb"

conn.ConnectionString = cs &"F:\Scview\score4.mdb"

'cs="Provider=SQLOLEDBServer=JF705Database=mytestUid=sapwd=lmlm"

'cs="Provider=SQLOLEDBServer=JF705\ETSERVERDatabase=mytestUid=sapwd=lmlm"

'cs="Provider=SQLOLEDBServer=JF705Database=mytestUid=sa1pwd=lmlm"

'conn.ConnectionString=cs

conn.Open

'response.write conn

'response.end

End Function

首先要确定你的记录集中 oRs.Fields(0).Value 的值是什么类型？数值型，字符型，逻辑型...

然后定义相应的变量，再赋值。与是否存在 MsgBox 提示窗没有关系

如：

dim id_f As String

id_f=oRs.Fileds(0).Value

取得记录集中字段值的简单办法：

id_f=oRs(0)

就可以啦...

---