Ⅰ 在VB6.0中如何连接Oracle数据库表，和如何取得表中数据
--先连接数据库，再打开记录集，搞定。
Dim conn_ora As New ADODB.Connection '用于连接ORACLE数据源的连接
conn_ora.ConnectionString = "Provider=MSDAORA.1;Password=111;User ID=system ;Data Source=orcl;Persist Security Info=True"
conn_ora.Open
Dim myrs_ora As New ADODB.Recordset '用于连接ORACLE数据库的记录集
myrs_ora.ActiveConnection = conn_ora.ConnectionString
myrs_ora.Open ("Select * From AAA")
Ⅱ 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 连接数据库共有那几种方法
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中怎样连接数据库
可以用ODBC数据源，添加一个SQL的。然后用VB里面的ADO部件和datagrid部件连接。先在拖出的adodc部件右键设置属性，连接数据库。再将datagrid连接到adodc就可以看到数据了。
Ⅳ vb6.0怎么连接网络上的SQLSERVER2005数据库
10.169.56.22这个地址服务器要开一些端口的，不开端口是无法连接的。另外，如果确保是公网IP，开了端口就可以连接，不是公网IP，一般无法连，配置还是比较麻烦的。不行就上花生壳域名代理，然后通过HTTP协议连接数据库。
Ⅵ VB6.0使用什么方法连接mysql数据库比较好且不需要再每台客户端机器上安装程序
在VB中可以使用ADO数据控件实现对MySQL数据库的访问，但ADO控件不能直接访问MySQL，需要安装MyODBC(可以在网上下载)并在ODBC中注册一个用户DSN(控制面板/管理工具/数据源)，这样就能使VB顺利连接到MySQL数据库了。
连接上了还需要执行SQL查询操作并能取得查询结果，可以使用ADODB的Command对象和RecordSet对像。
Ⅶ vb6.0如何连接MYSQL数据库
最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。
Ⅷ VB6.0连接数据库错误
cnnstu.Closecnnstu.Provider = "Microsoft.ACE.OLEDB.12.0" 改成
cnnstu.Closecnnstu.Provider = "Microsoft.Jet.OLEDB.4.0;"
参考实例代码
Dim Cnnstu As New ADODB.Connection '连接到指定数据库
Dim Rsstu As New ADODB.Recordset
Dim ConnStr As String, RstSql As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\空气质量数据.mdb"
Cnnstu.Open ConnStr
RstSql = "select 地点," & Combo2.Text & ",质量等级 from " & Combo1.Text & " where 地点 = " & "'" & Combo3.Text & "'"
Rsstu.Open RstSql, Cnnstu, adOpenKeyset, adLockPessimistic
Ⅸ vb6.0中怎么连接数据库并调用数据
你先你的程序上添加Activex data object Library 控件然后你可以连接数据库， 连接数据库的时候你要用connection ixiang
我给你写连接数据库的代码
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;
这个语句通过连接数据库
C:\mydatabase.mdb
这个地址你自己换你数据库文件保存的地址。
好好学习好好努力
Ⅹ VB6.0 如何连接SQL 数据库
你在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;