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

2003-07-25 11:12:05 254 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB6.0连接 SQLSERVER2008数据库前段时间被硬拉去做VB程序开发，基本是零基础，数据库连接上找了很多网上的资料也看不明白，多亏了@WolfBolin的文章，讲了VB连接SQL SERVER数据库的方法，让我豁然开朗，这里要特别谢谢他！现在数据库顺利连接上了，程序也开发完成，现在将数据库连接的方法分享给大家，希望能帮助更多的人，方法跟@WolfBolin基本相同，略有差异。 ADO控件连接数据库 1、加载ADO部件 “工程”-&g... 阅读详情

谢谢

...全文

VB6.0和VB.NET区别学习了一段时间的VB.net,感觉大部分和之前学过的VB形似，但是因为名字不一样，所以肯定就有不同的地方，接下来说说VB和VB.net有哪些不同的地方。 VB.net是推出的一种开发基于.net平台应用程序的开发语言。掌握VB.net不仅要掌握语法，还要理解并运用这些新的概念，功能和观点，还有掌握.net框架。理解CLR(common language runtime,通用语言进行时）。接下阅读详情

stonelang

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

Alicky 2003-07-25

打赏
举报

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

Sunron128 2003-07-25

打赏
举报

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

gpo2002 2003-07-25

打赏
举报

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

viena 2003-07-25

打赏
举报

引用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

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

相关推荐