① VB怎么连接 SQL 数据库
一个简单的方法:
首先,建立程序公共模块输入以下代码:
Public conn As New ADODB.Connection
'全局变量 rst 指针
Public rst As New ADODB.Recordset
'全局调用函数 打开数据库
Public Function openconn()
conn.ConnectionString = "连接信息"
'此连接信息最简单的生成办法:
'在任意窗口下建立一新ADODC控件
'选择控件属性,通用页,使用连接字符串,生成(U)
'利用该向导生成出字符串,然后将该字符串复制到"连接信息"中即可
conn.Open
End Function
'全局调用函数 关闭数据库
Public Function closeconn()
If conn.State = 1 Then
conn.Close
Set conn = Nothing
End If
End Function
然后在窗体文件中可以使用的函数:
打开数据库:openconn
注意:此函数为自定义函数,无参数,定义在公共模块中!
建立数据表连接:Set rst = conn.Execute("select * from 数据表名")
如做登陆页可以这样判断用户名密码:
Text1.Text = RTrim(rst.Fields("id")) And Text2.Text = RTrim(rst.Fields("password"))
注:其中Text1.Text为输入用户名TextBOX Text2.Text为输入密码TextBOX
数据表中 id 为保存用户名 password 为保存密码!此方法为非加密方法!
关闭数据库函数:
closeconn
Set rst = Nothing
注:此两行,必须在打开数据库的情况下使用!并且每打开一次数据库后必须先使用此两句将数据库关闭后才可打开另一数据库表文件!!!!!否则程序报错终止!
添加新数据函数
rst.AddNew
rst("字段名1") = Text1.Text
rst("字段名2") = Text2.Text
rst.Update
删除数据函数
rst.Delete
注:使用此函数前,必须保证数据库指针函数rst指向需删除数据,移动rst指针可以使用函数:rst.MoveNext或rst.MoveLast
更新数据函数
rst.Open "update 数据表名 set 字段1='" + Text1.Text + "',字段2='" + Text2.Text + "' where id='" + Text3.Text + "'", conn, 1, 3
注,其中 where id = 为更新特定数据表的查找!
如果熟悉SQL语句,还可编写出其他方式的查找,这里就不多做介绍了!
② VB 远程访问SQL SERVER数据库
对于跨网段连接数据库，用VB来实现的确是差强人意。
我曾经试用几个方法。
1.只要SQL数据库是独立IP的，通过ADO是可以远程连接的，不过当数据量比较大时，这方法就不怎么如意了。。
2.将程序打包成CAB，做成BS结构的。通过ADO的远程组件RDS进行连接。详细的自己网络吧。不过这个对一般人来说有点难度。
3.可以在服务器做一个服务端，通过WINSOCK组件，传送字串，也能实现此功能。
③ 想用VB编一个程序读取sql数据库中的内容
不同的计算机安装SQL的连接是不同的.
关于连接总结如下:
ADODB编码连接字的实例
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属性的选择项。而“提供程序”、“连接”、“高级”三项的选择结果，都在“所有”项中集中显示出来，而且“所有”项中，还有前三项不具有的其它的内容，因此，要注意察看与应用。
Command1_Click()
Me.Caption = "NAME"
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 Procere 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
用ADODC方法更简单:
在窗口中建立:Command1,CAdodc1及DataDrid1,设置好CAdodc1的连接属性,见前所述.
Command1_Click()
Me.Caption = "NAME"
Me.Cls
Set DataDrid1=Adodc1
End Sub
④ 怎样在vb中访问sql数据库。代码是什么
On
Error
GoTo
err
Dim
cn
As
New
ADODB.Connection
'有密码的连接：
'cn.ConnectionString
=
"Provider=SQLOLEDB.1;Persist
Security
Info=False;User
ID=登陆用户名;Password=登录密码;Initial
Catalog=数据库名;Data
Source=服务器别名"
'无密码的连接：
cn.ConnectionString
=
"Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist
Security
Info=False;Initial
Catalog=数据库名;Data
Source=服务器别名"
cn.CursorLocation=adUseClient'设置客户端游标
cn.Open
⑤ VB访问数据库（sql sever2000)的实例
1.先在工程---引用里面在可引用的引用中找到microsoft activex data objects 2.8 library和microsoft activex data objects recordset 2.8 library,将其勾选，为写代码做准备
2，在窗体上放一个combo1和command1
3，代码
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Driver={SQL Server};SERVER=数据库机器ip;DATABASE=student;UID=sa;PWD="
sql = "select sno from std where sn='1111'"
rs.Open sql, conn, 3, 1
While Not rs.EOF
Combo1.AddItem rs("sno")
rs.MoveNext
Wend
Set conn = Nothing
Set rs = Nothing
End Sub
⑥ SQL的数据库IP地址在哪找
方法如下：
首先确认数据库服务器功能开启没有。
服务里面找到SQL
Server
Agent
(MSSQLSERVER)
，启动。
本机IP地址一般都是127.0.0.1,至于名字，一般都是装数据库时实例的名字
。
⑦ 如何在vb程序中查找数据库信息并显示
要查找数据库信息，关键是要解决链接数据库的问题，下面简述Vb如何SQL数据库：
有两种方法可以实现，一种是通过ODBC数据源的配置进行连接，一种是通过纯代码编辑进行连接，下面我们就详细介绍一下这两种连接方法。
ODBC数据源VB连接SQL数据库
一、配置ODBC数据源
1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。
2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQL Server”。选好单击完成
3、在打开“建立新的数据源到SQL Server”对话框，在“名称”文本框输入新数据源的名称，描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。
4、选择使用用户输入登录的ID和密码的SQL 验证。选连接SQL默认设置
5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。
二、VB中设置连接
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。
2、对ADO部件点右键选属性，选择使用连接字符串，按生成。
3、选择Mircosoft OLE DB Providar for SQL Server按下一步
4、
1）输入服务器名称
2）使用指定的服务器信息
3）在服务器上选择数据库
这时就选择你在SQL Server建好的数据库就行了
5、测试连接可以看到连接是否成功！
通过代码VB连接SQL数据库
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean
Public Function OpenCn(ByVal Cip As String) As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = Cip '服务器的名字
conn.Properties("initial catalog").Value = "zqoa" '库名
'conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Properties("user id").Value = "sa"
conn.Properties("password").Value = "sa"
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "Data can't connect"
Call MsgBox(mag, vbOKOnly, "Error:Data connect")
addFlag = False
Exit Function
End Function
Public Sub cloCn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub
Public Function openRs(ByVal strsql As String) As Boolean '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
Set rs = New ADODB.Recordset
If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strsql
End With
addFlag = True
openRs = True
End
'Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKOnly, "error:connect")
openRs = False
End
'Exit Function
End Function
Public Sub cloRs()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
End Sub
⑧ 用vb怎么连接SQL数据库
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\你数据库的名称"
Dim strquery As String
strquery = "select * from Table_Users where 用户名='" & Trim(Text1.Text) & "'and 密码= '" & Trim(Text2.Text) & "'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
这样应该就ok了 希望能帮到你
⑨ vb如何连接sql数据库,求源码
Public My_Cnn As New ADODB.Connection '连接数据库
StrCnn = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"
My_Cnn.CursorLocation = adUseClient
My_Cnn.Open StrCnn
使用数据库
Dim sql As String
Dim My_temp As New ADODB.Recordset
执行SQL语句（一般内插入，删除数据）
sql = "数据库语容句"
My_cnn.Execute sql
读取数据
sql = "查询语句"
My_temp.Open sql, My_cnn, adOpenDynamic, adLockOptimistic
My_temp.field("字段名")
⑩ 怎么通过VB访问SQL Server数据库
要连接SQL数据库有两种方法用ADODC或ADO.
方法一: （ADODC)
首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB).
之后在表单设置ADODC控件。然后Form_Load()输入以下代码：
Private Sub Form_Load()
ADODC1.ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"
ADODC1.CommandType = adCmdText
ADODC1.RecordSource = "select * from 表格名称"
ADODC1.Refresh
End Sub
方法二: (ADO)
'首先须引用Projects-References-Microsoft Active X Data Objects 2.0 Library.
'*注意以下两段须写在程式最上面（Gerenal一般）中。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
'然后在Form_Load()输入以下代码：
Private Sub Form_Load()
cn.ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"
cn.Open
If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
SQL = "select * from 表格名"
rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimistic
End Sub