⑴ 怎么看VB用哪种方法连接的数据库
看、、这个后面的 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\图书馆查询管理系统.mdb;Persist Security Info=False"
⑵ vb连接sql数据库方法
Public rs As ADODB.Recordset
Public cnn As ADODB.Connection
Public ServerName As String
'服务器名
Public DBname As String
'数据库名
Public UserName As String
'用户名
Public PassWord As String
'密码
Set cnn = New ADODB.Connection
With cnn
.connectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & UserName & ";PWD=" & PassWord & ";Initial Catalog=" & DBname & ";Data Source=" & ServerName
'连接字符串
.CommandTimeout = 10
'连接等待时间
.CursorLocation = adUseClient
'游标类型
.Open
'打开连接
End With
⑶ vb中连接数据库有几种方法
SQL大型数据库，维护起来麻烦，想删除如果不会删还删不掉呢。
用ACCESS，如果觉得安全性能有问题就升级到2007版，如果这个版本还有安全隐患，就找我，找我没门就上书到微软。
但是SQL的语句你就学通了，不然不会操作数据库。
ACCESS的好处就是，移动哪都可以用。当然，SQL也行，但是移的过程中，麻烦。
⑷ VB如何连接数据库
使用ADODC数据控件,它与数据库连接方式很多,并支持SQL结构化查询语言,能实现动态查询.但用控件也要写一些代码,以达到应用程序的目的.
数据库用VB6编程语言，对新手而言，如何用好ADODC控件和DATAGRID控件相当重要。具体做法：
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中根据数据库结构如*.MDB数据库则选MICROSOFT jet 4.0 OLE DB Provider或其它连接引擎,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。
下给出一段数据连接代码:
Private Sub Form_Load()
Text1 = ""
With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select name from b1 order by name"
Adodc1.Refresh
DataGrid1.Refresh
End With
End Sub
SQL查询语言多写多用
⑸ vb6.0 连接数据库共有那几种方法
1． 定义连接对象
Global DBconnect As New ADODB.Connection
2． 执行连接语句
If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close
l 连接ODBC
DBconnect.ConnectionString = "dsn=DataAliasName;uid=UserID;pwd=Passwd;"
l 直接连接Access为
Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97为3.51
DBconnect.ConnectionString = "FilePathFileName.mdb"
l 连接Oracle
DBconnect.Provider = "MSADORA"
DBconnect.ConnectionString = "user/mypass@servicename
l 连接SQL Server
DBconnect.Provider = "SQLOLEDB.1"
DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"
或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSWORD"
DBConnect.Open
3． 取查询结果集
Global RS As New ADODB.Recordset
Global PS As New ADODB.Recordset
If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close
RS.Open SQLStr, DBconnect, adOpenKeyset
4． 执行SQL语句
DBconn.Execute SQLStr
5． 关闭数据库
DBconnect.Close
⑹ VB如何连接MYSQL数据库
VB连接MYSQL数据的方法
博客分类：
VB
VBMySQLSQLServerSQLSocket
第一步：上网http://dev.mysql.com/downloads/connector/odbc/下载mysql-connector-odbc-5.1.6-win32.msi
第二步：安装mysql-connector-odbc-5.1.6-win32.msi
第三步：运行VB并新建一标准EXE工程, 通过菜单工程->引用 打开”引用”对话框, 找到 MicrosoftActiveX Data Objects x.x Library , 其中 x.x 是版本号, 可能会有很多个, 这里我选择的是2.5
第四步：打开代码窗口, 在 Form_Load 过程中输入下面的代码(具体说明在代码的注释中):
Vb代码
' 定义并创建数据库连接和访问对象
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
' 定义数据库连接字符串变量
Dim strCn As String
' 定义数据库连接参数变量
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
' 定义 SQL 语句变量
Dim sql As String
' 初始化数据库连接变量
db_host = "localhost"
db_user = "root"
db_pass = ""
db_data = "erqiuda"
' MySQL ODBC 连接参数
'+------------+---------------------+----------------------------------+
'| 参数名 | 默认值 | 说明 |
'+------------+------------------------------------------------------–+
'| user | ODBC (on Windows) | MySQL 用户名 |
'| server | localhost | MySQL 服务器地址 |
'| database | | 默认连接数据库 |
'| option | 0 | 参数用以指定连接的工作方式 |
'| port | 3306 | 连接端口 |
'| stmt | | 一段声明, 可以在连接数据库后运行 |
'| password | | MySQL 用户密码 |
'| socket | | (略) |
'+------------+---------------------+----------------------------------+
' 详细查看官方说明
' http://dev.mysql.com/doc/refman/5.0/en/myodbc-configuration-connection-parameters.html
strCn = "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
' stmt=SET NAMES GB2312
' 这句是设置数据库编码方式
' 中文操作系统需要设置成 GB2312
' 这样中文才不会有问题
' 版本要求 mysql 4.1+
' 连接数据库
cn.Open strCn
' 设置该属性, 使 recordcount 和 absolutepage 属性可用
cn.CursorLocation = adUseClient
' 访问表users
sql = "select * from users"
rs.Open sql, cn
MsgBox rs.RecordCount
⑺ VB怎么连接SQL Server数据库
VB连接数据库方式主要有两种，一是通过ODBC接口，ODBC是windows系统里提供的接口，专门连接数据库的，可以连接多种数据库，在应用电脑的设置ODBC，也就DSN数据源（下面说到的），连接到服务器。
第二种就是ADO方式，
VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。
VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。
⑻ vb怎样连接数据库
Option Explicit
Public appdisk As String
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public db As String
Private sSQL As String
Private Sub Form_Load()
Dim i As Integer
On Error GoTo Err
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
db = appdisk
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db & "alex.mdb"
conn.CursorLocation = adUseClient
conn.Open db
Rs.Open "select * from aaa", conn, adOpenKeyset, adLockPessimistic
If Rs.EOF = False Then
Do Until Rs.EOF
Combo1.AddItem Rs!seqno, i
Rs.MoveNext
i = i + 1
Loop
End If
Rs.MoveFirst
dB_RsToCSVFile Rs, "TT.CSV"
Rs.Close: Set Rs = Nothing
⑼ VB如何连接到数据库
VB有多种方法连接数据库,不知道你想要怎么连? 还有要连接到什么样的数据库?
我这里给你提供个连接到Oracle的连接方法(利用oo4o).
Public OraDbSession As Object
Public OraDb As Object
Public myRs As Object
'连接数据库(用户名和密码,数据库名)
Function OraConn(UserID As String, Password As String, SouceName As String) As Boolean
On Error GoTo OraConn_Err
Set OraDbSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDb = OraDbSession.dbopendatabase(SouceName, UserID & "/" & Password, 0)
OraConn = True
Exit Function
OraConn_Err:
OraConn = False
MsgBox Error
End Function
'检索(Select...)
Function BookFound() As Boolean
Dim SQL As String
SQL = "SELECT bookid FROM BOOK"
On Error GoTo BookFound_Err
'这里是调用上面那个函数
If Not OraConn("用户名", "密码", "数据库名") Then
BookFound = False
Exit Function
Else
Set myRs = OraDb.dbcreatedynaset(SQL, 0)
End If
Do While Not myds.EOF
MsgBox myds.fields(0).Value
myds.MoveNext
Loop
myds.Close
Exit Function
BookFound_Err:
MsgBox Error
End Function
'更新/删除/写数据
Public Sub DateUp()
Dim sql As String
sql = "insert..."
'这里是调用上面那个函数
If OraConn("用户名", "密码", "数据库名") Then
OraDb.executesql (sql)
End If
End Sub
⑽ 怎么把VB 和数据库连接起来
ado
//使用ADO控件集动态打开ACCESS数据库列程
//本方法主要面向客户选择目标ACCESS数据库
//取代弹出的ConnectionString的设置对话框
//注：ADOTable和ADOQuery控件的连接字串不同
//着名关心CSDN结贴率爱国人士-实用库Tip No 1 - 2003-9-25
function FileName_DataBasePassWord(FileName:string; DataBasePassWord:string=''):string;
begin
FileName_DataBasePassWord:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;Data Source='+
form1.OpenDialog1.FileName+ //数据库文件路径
';Mode=Share Deny None;Extended Properties="";'+
'Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password='+
DataBasePassWord+ //数据库密码
';Jet OLEDB:Engine Type=5;'+
'Jet OLEDB:Database Locking Mode=1;'+
'Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;'+
'Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+
'Jet OLEDB:SFP=False';
end;
procere TForm1.DynamicOpenAdoAccess_BtnClick(Sender: TObject);
begin
form1.OpenDialog1.Filter:='Text files (*.mdb)|*.MDB';
form1.OpenDialog1.DefaultExt:='MDB';
form1.OpenDialog1.InitialDir:=application.GetNamePath;
form1.OpenDialog1.Title:='指定Access数据库Mdb文件的位置';
if form1.OpenDialog1.Execute then
begin
form1.ADOConnection1.LoginPrompt:=false;
//带密码数据库的使用
//form1.ADOConnection1.ConnectionString:=FileName_DataBasePassWord(form1.OpenDialog1.FileName,'ghyghost');
//不带密码数据的使用
form1.ADOConnection1.ConnectionString:=FileName_DataBasePassWord(form1.OpenDialog1.FileName);
form1.ADOConnection1.Open;
form1.ADOQuery1.open; //ADOQuery1's SQL Properties is 'select * from [tablename]'
end;
end;