各位高手，请问如何在VB6.0中从数据库中提取数据，最好有实例

[stonelang]

谢谢

[viena]

引用ado库（工程-引用-Microsoft ActiveX Data Objects 2.x Library）
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 你的数据库路径 & ";Mode=ReadWrite;Persist Security Info=False"
Set conn = New ADODB.Connection
conn.Open connstr
Dim rs As New ADODB.Recordset
sqlstr = "select * from 表名 where 查询条件"
rs.Open sqlstr, conn, adOpenDynamic, AdLockOptimistic

从数据库中取数据：
rs.move 到你所需要的记录
rs("字段名")

写入数据库
rs.操作，如：
添加rs.addnew（修改不需要）
rs("字段名")=
rs.update

最后，关闭数据库
rs.close
set rs=nothing
conn.close
set conn=nothing

以上为连接accessｓ数据库,如果连接其他需要改连接字符串connstr

[gpo2002]

D:\Program Files\Microsoft Visual Studio\MSDN98\98VS\2052\SAMPLES\VB98\Datatree

[Sunron128]

Dim cnADO as ADODB.Connection
Dim rsADO as ADODB.Recordset

Set cnADO = New ADODB.Connection
Set rsADO = New ADODB.Recordset

cnADO.CursorLocation = adUseClient
cnADO.Open "Provider=SQLOLEDB;Data Source=服務器名稱;Initial Catalog=數據庫名稱;User ID=LoginName;Password=密碼;"

rsADO.Open "Select * From 表名",cnADO
Set DataGrid.DataSource = rsADO

[Alicky]

Option Explicit

'功能简介：建立本地数据库公共链接
'参数一：MDB数据库地址路径
'参数二：密码 为空时表示没有密码
'返回值："ok"--成功
Function PulbicMdbConn(ByVal StrPath As String) As String
On Error GoTo MdbConnErr
Dim StrSql As String
StrSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPath & ";Persist Security Info=False"
If MdbConn.State <> 0 Then MdbConn.Close
MdbConn.Open StrSql
PulbicMdbConn = "ok"
Exit Function
MdbConnErr:
PulbicMdbConn = Err.Description
If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
End Function

'功能简介：关闭本地数据库公共链接
Function PublicMdbClose()
If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
End Function