❶ vb 6.0 如何连接access accdb 数据库呢
首先要在工程的引用中选上Microsoft ActiveX Data Objects 2.5 Library
然后在事件中就可以定义相关的变量进行连接了
下面的例子可能对您有用：
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open connstring ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & “数据库的路径和名字” & ";Persist Security Info=True;Jet OLEDB:Database Password= & "数据库密码"
sql = "Select * From “ & ”表名" & where ID=20"
Rs.Open sql, Conn, 1, 3
If NOT rs.eof then
m_date= rs("日期型字段的名字")
m_data= rs("数值型字段的名字")
end if
上面的例子实现了查询
如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用
Conn.Execute SQL 就可以了,如:
添加的:
SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"
Conn.Execute SQL '执行后,就添加了一条记录
删除:
SQL="Delete From [UserInfo] Where User='aaaa'"
Conn.Execute SQL '删除用户名为aaaa的用户记录
更新:
SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"
Conn.Execute SQL '执行后,修改用户aaaa的密码为abcdefg
以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了
❷ vb6.0如何连接MYSQL数据库
最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。
❸ vb6.0 判断连接数据库连没连上怎么写 详细看补充着急啊
Function ConnectToDataBase() as Boolean ’定义一个连接数据库的函数，返回值为连接成功与否
On Error GoTo DealErr
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=122.122.107.56,13000;uid=wa;pwd=gvwsgsg;database=reachDb;"
ConnectToDataBase=True
MsgBox "连接数据库成功！"
Exit Function
DealErr:
ConnectToDataBase=False
MsgBox "连接数据库失败！"
End
EndFunction
❹ 如何用vb连接sql server数据库
一、配置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 6.0如何连接上 postgres数据库
在界面上可以用 Adodc控件连接数据表。
如：
控件名称: Adodc1
在 Form_Load() 事件中初始化数据连接
With Adodc1
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;
User ID=sa; '用户名
Password=xxx; '用户密码，没密码就空
Data Source =服务器名;
Initial Catalog=数据库名;"
.RecordSource = "SELECT * FROM JH_Tab"
.Refresh
End With
如果界面上有和 Adodc1连接的控件，数据就会显示了。
❻ vb6.0如何连接sql2000
VB6.0使用ADO对象连接数据库：
1． 定义连接对象Global DBconnect As New ADODB.Connection2． 执行连接语句If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l 连接ODBC DBconnect.ConnectionString = "dsn
1． 定义连接对象
Global DBconnect As New ADODB.Connection
2． 执行连接语句
If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close
连接ODBC
DBconnect.ConnectionString = "dsn=DataAliasName;uid=UserID;pwd=Passwd;"
直接连接Access为
Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97为3.51
DBconnect.ConnectionString = "FilePathFileName.mdb"
连接Oracle
DBconnect.Provider = "MSADORA"
DBconnect.ConnectionString = "user/mypass@servicename
连接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使用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
连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。
❼ vb6.0怎么连接网络上的SQLSERVER2005数据库
10.169.56.22这个地址服务器要开一些端口的，不开端口是无法连接的。另外，如果确保是公网IP，开了端口就可以连接，不是公网IP，一般无法连，配置还是比较麻烦的。不行就上花生壳域名代理，然后通过HTTP协议连接数据库。
❽ VB6.0 多窗体共用一个数据库连接的问题
可以啊！
（1）你需要在VB工程中添加一个模块，然后在模块中添加两个公共变量。
Public
cn
As
New
ADODB.Connection
'连接
Public
rs
As
New
ADODB.Recordset
'记录集
（2）然后在你的主窗口那里连接数据库。
Set
cn
=
New
ADODB.Connection
cn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
App.Path
&
"\data.mdb;Jet
OLEDB:Database
Password=123456;Persist
Security
Info=False;"
‘这条语句可以用VB自动生成
（3）之后你就可以其他的窗口做查询、添加、修改等工作了
如果还有什么不明白了，Hi我！