在VB6.0中连接SQL数据库,有没有什么固定格式,代码?
答案:2 悬赏:50 手机版
解决时间 2021-01-25 14:49
- 提问者网友:轮囘Li巡影
- 2021-01-24 18:51
在VB6.0中连接SQL数据库,有没有什么固定格式,代码?
最佳答案
- 五星知识达人网友:独钓一江月
- 2021-01-24 20:27
VB中,关于SQL数据库的连接是比较复杂的,但也有一个可以参考的学习思路,方法如下。
1、建立数据库链接
在工具条中,有一个“数据视图窗口”的工具,用它可以建立各种数据库的链接。建立链接的过程:
点击“数据视图窗口”,出现“数据视图”窗体,点击选中“数据链接”,按右键,点击“添加数据链接”,出现“数据链接属性”窗口,有四个菜单:“提供程序”、“连接”、“高级”、“所有”。
选中“提供程序”菜单,这里有许多用于链接的驱动程序,选中“Microsoft OLE DB Provider for SQL Server”,点击“下一步”。“Microsoft OLE DB Provider for SQL Server”是真正的SQL数据库连接字用的驱动程序。
当选中“Microsoft OLE DB Provider for SQL Server”,点击“下一步”,则自动进入“连接”窗体界面。这个“连接”窗体界面的内容,随前面选取的驱动程序而定。
因为前面选择的是“Microsoft OLE DB Provider for SQL Server”,所以,“连接”窗体的主要内容就是直接访问SQL数据库的相关内容的设置,如下:
在“…….服务器名称”一栏中怎么选择呢?如SQL数据库服务器安装时是选择当地默认的实例,即以本地计算机名代替的服务器,则此处应填写的内容是:(local),或者是:本地的计算机名。估计,非本地的则可填写:服务器的IP地址或服务器名称。
在“输入登录服务器的信息”一栏中怎么选择呢?当选择“使用指定的用户名和密码”一项时,用户名与密码是在SQL服务器安装时选定的内容(值)。若不用密码及用户名登入,则连接字的密码应代之为:Integrate Security=SSPI,表示用“Windows NT 集成安全设置”之意,SQL2005是用这一项的。但实际的ADODB的连接字是不能用这个NT打开的。
在“服务器上选择数据库”一栏中怎么选择呢?当前面两项内容选择正确后,此处的内容是存在可选的,选中即可。
最后“测试连接”,显示成功。则在“数据视图”窗体的“数据链接”中将出现“Datelink1”,表示建立了以“Datelink1”为名的第1个数据库链接。当然也可以建立多个,名字将分别为“Datelink2”、“Datelink3”……
2、从已建立的数据库链接的属性中找连接字。
当选中“数据视图”窗体的“数据链接”,出现“Datelink1”,并选中“Datelink1”,按右键出现弹出菜单,选中“属性”,点击,并可看见这个链接所用到的名字“Name”,“Name”对应的值,就是连接字的主要内容。只是缺少“Password= ”与“ .ConnectionTimeout= ”,因此只要把这两向补齐,就是一个完整可用的ADODB的连接字,而且也适用于ADODC控件的字连接,即ConnectionString,但不需要双引号“”而已。
注意:在前面“数据链接属性”窗口的四个菜单“提供程序”、“连接”、“高级”、“所有”中,前面只重点介绍了“提供程序”与“连接”两项,实际上,“高级”就有ConnectionTimeout属性的选择项。而“提供程序”、“连接”、“高级”三项的选择结果,都在“所有”项中集中显示出来,而且“所有”项中,还有前三项不具有的其它的内容,因此,要注意察看与应用。
用上述方法得到的参考实例如下:
Private Sub Command1_Click()
Me.Caption = "XXX"
Me.Cls
Dim con As ADODB.Connection 注:ADODC控件用的申明,不用ADODB,也不用Adodc。
Dim rs As New ADODB.Recordset
Set con = New ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SQL中的数据库名;Data Sure=(local);Password=密码值(注:无时不选此项);Use Procedure for preplare=1;Auto Translate=True;Packet Size = 4096;Workstation ID=(local)(注:或是局域网的机器名);Use Encryption for Date=False;Tag With column collation when Possible=False"
con.Open
rs.Open "Select * from SQL中的数据库表或视图名 ", con
Me.AutoRedraw = True
rs.MoveFirst
Dim ptr As Integer
For ptr = 0 To 20
Print rs.Fields(ptr).Name, 注:Name表示是表格的列名。
Next ptr
While Not rs.EOF()
Print
For ptr = 0 To 20
Print rs.Fields(ptr).Value, 注:Value表示是表格的数值。
Next ptr
rs.MoveNext
Wend
End Sub
1、建立数据库链接
在工具条中,有一个“数据视图窗口”的工具,用它可以建立各种数据库的链接。建立链接的过程:
点击“数据视图窗口”,出现“数据视图”窗体,点击选中“数据链接”,按右键,点击“添加数据链接”,出现“数据链接属性”窗口,有四个菜单:“提供程序”、“连接”、“高级”、“所有”。
选中“提供程序”菜单,这里有许多用于链接的驱动程序,选中“Microsoft OLE DB Provider for SQL Server”,点击“下一步”。“Microsoft OLE DB Provider for SQL Server”是真正的SQL数据库连接字用的驱动程序。
当选中“Microsoft OLE DB Provider for SQL Server”,点击“下一步”,则自动进入“连接”窗体界面。这个“连接”窗体界面的内容,随前面选取的驱动程序而定。
因为前面选择的是“Microsoft OLE DB Provider for SQL Server”,所以,“连接”窗体的主要内容就是直接访问SQL数据库的相关内容的设置,如下:
在“…….服务器名称”一栏中怎么选择呢?如SQL数据库服务器安装时是选择当地默认的实例,即以本地计算机名代替的服务器,则此处应填写的内容是:(local),或者是:本地的计算机名。估计,非本地的则可填写:服务器的IP地址或服务器名称。
在“输入登录服务器的信息”一栏中怎么选择呢?当选择“使用指定的用户名和密码”一项时,用户名与密码是在SQL服务器安装时选定的内容(值)。若不用密码及用户名登入,则连接字的密码应代之为:Integrate Security=SSPI,表示用“Windows NT 集成安全设置”之意,SQL2005是用这一项的。但实际的ADODB的连接字是不能用这个NT打开的。
在“服务器上选择数据库”一栏中怎么选择呢?当前面两项内容选择正确后,此处的内容是存在可选的,选中即可。
最后“测试连接”,显示成功。则在“数据视图”窗体的“数据链接”中将出现“Datelink1”,表示建立了以“Datelink1”为名的第1个数据库链接。当然也可以建立多个,名字将分别为“Datelink2”、“Datelink3”……
2、从已建立的数据库链接的属性中找连接字。
当选中“数据视图”窗体的“数据链接”,出现“Datelink1”,并选中“Datelink1”,按右键出现弹出菜单,选中“属性”,点击,并可看见这个链接所用到的名字“Name”,“Name”对应的值,就是连接字的主要内容。只是缺少“Password= ”与“ .ConnectionTimeout= ”,因此只要把这两向补齐,就是一个完整可用的ADODB的连接字,而且也适用于ADODC控件的字连接,即ConnectionString,但不需要双引号“”而已。
注意:在前面“数据链接属性”窗口的四个菜单“提供程序”、“连接”、“高级”、“所有”中,前面只重点介绍了“提供程序”与“连接”两项,实际上,“高级”就有ConnectionTimeout属性的选择项。而“提供程序”、“连接”、“高级”三项的选择结果,都在“所有”项中集中显示出来,而且“所有”项中,还有前三项不具有的其它的内容,因此,要注意察看与应用。
用上述方法得到的参考实例如下:
Private Sub Command1_Click()
Me.Caption = "XXX"
Me.Cls
Dim con As ADODB.Connection 注:ADODC控件用的申明,不用ADODB,也不用Adodc。
Dim rs As New ADODB.Recordset
Set con = New ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SQL中的数据库名;Data Sure=(local);Password=密码值(注:无时不选此项);Use Procedure for preplare=1;Auto Translate=True;Packet Size = 4096;Workstation ID=(local)(注:或是局域网的机器名);Use Encryption for Date=False;Tag With column collation when Possible=False"
con.Open
rs.Open "Select * from SQL中的数据库表或视图名 ", con
Me.AutoRedraw = True
rs.MoveFirst
Dim ptr As Integer
For ptr = 0 To 20
Print rs.Fields(ptr).Name, 注:Name表示是表格的列名。
Next ptr
While Not rs.EOF()
For ptr = 0 To 20
Print rs.Fields(ptr).Value, 注:Value表示是表格的数值。
Next ptr
rs.MoveNext
Wend
End Sub
全部回答
- 1楼网友:胯下狙击手
- 2021-01-24 20:36
你在sql server中新建一个数据库,然后将这个数据库生成脚本文件,根据情况修改后转存为master下的一个存储过程。至于数据库名和数据文件路径可以做成参数传入,然后在vb中用连到master后执行这个存储过程。
用vb与建立的sql数据库连接
1.使用odbc dsn连接字符串
dsn=mysystemdsn;uid=myusername;pwd=mypassword
----------------------------------------------
2.使用无odbc dsn的连接字符串
(1)标准安全性
driver={sql server};server=myservername;database=mydatabasename; _
uid=myusername;pwd=mypassword
------------------------------------------------
(2)信任连接(分两种)
1)连接字符串1
driver={sql server};server=myservername;database=mydatabasename;uid=;pwd=;
2)连接字符串2
driver={sql server};server=myservername;database=mydatabasename;trusted_connection=yes
---------------------------------------------------------------------------
(3)连接本地sql server
driver={sql server};server=(local);database=mydatabasename; _
uid=myusername;pwd=mypassword
-------------------------------------------------------------
(4)连接远程sql server
driver={sql server};server=xxx.xxx.xxx.xxx; _
address=xxx.xxx.xxx.xxx,1433; _
network=dbmmsocn;database=mydatabasename; _
uid=myusername;pwd=mypassword
-------------------------------------------------------
3.使用oledb provider for sql server的连接字符串
(1)标准安全性
provider=sqloledb.1; _
password=mypassword; _
user id=myusername; _
initial catalog=mydatabasename; _
data source=myservername
-------------------------------------------
(2)信任连接
provider=sqloledb.1; _
initial catalog=mydatabasename; _
data source=myservername; _
integrated security=sspi
--------------------------------------
(3)连接到命名实例
provider=sqloledb.1; _
initial catalog=mydatabasename; _
data source=myservername\myinstancename; _
password=mypassword; _
user id=myusername
--------------------------------------
(4)连接到本地sql server
provider=sqloledb.1; _
password=mypassword; _
user id=myusername; _
initial catalog=mydatabasename; _
data source=(local)
-----------------------------------------
(5)连接到远程sql server
provider=sqloledb.1; _
netwprk library=dbmmsocn; _
data source=xxx.xxx.xxx.xxx,1433; _
password=mypassword; _
user id=myusername; _
initial catalog=mydatabasename;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯