❶ VB操作两个数据库,从A数据库表中查询,然后写入B数据库表中!
这个不难
我教你怎么跨数据库(跨服务器都可以)操作多数据表:
新建一个ACCESS,放在VB工程目录下,什么都不要去做,就用到他的一个ODBC功能做桥接,在VB中连接ACCESS数据库照常
我就给个ADO连接ACCESS连接sql多数据库连接表联合查询两个数据库数据表的例子:
Private Sub 控件名称_事件过程(变量)
Dim A, B as String
'-----------------定义变量来存字符串
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\ACCESS数据库.后缀"
'-----------------连接ACCESS数据库照常
A="Select 字段1 AS 名称1, 字段2 as 名称2 From 表1 IN [ODBC] [ODBC;Server=SQL Server;uid=用户名;PWD=密码;Server=服务器IP;DataBase=数据库名1] Where 字段3 LIKE %'5555'%"
B="Select 字段8 AS 名称1, 字段9 as 名称2 From 表2 IN [ODBC] [ODBC;Server=SQL Server;uid=2用户名;PWD=密码;Server=服务器IP;DataBase=数据库名2]"
Adodc1.recordsoure= A & "Unoin" & B
Adodc1.Refresh
Set 电子表格.DataSource=Adodc1
End Sub
看到没有?跨了数据库,服务器都可以跨,SQL语句没多大问题吧?我相信,推荐答案那么简单的语句只能解决SQL操作问题。
❷ 用vb代码编写如何可以向access数据库中添加多个数据库表
app.path是指程序的相对路径。可以防止你写绝对路径后,如你的电脑可能有g盘,而其他人的电脑里没有g盘,那你写的绝对路径就不可用,程序也就相对他来讲是处废品。app.path可获取到你正在运行的程序的路径,能存放你程序的路径,那他下面也就可以再存你的数据库(你可以在这目录下再新一个文件夹存数据库)
rs1.open
sql,
cn
其中cn是连接对象,rs1是记录集,sql是查询语句
你都知道这三个变量的意思,这句话也应该不难理解。直接译出来
sql
=
"select
*
from
表名"
检索“表名”里的所有记录
rs1.close是关闭rs1.open语句的。
引号里的是字符串
加号是连接符,通加在不作加减运算时最好是用"&"代替。可防止出错。
如
a="123"+"456"
a的结果是"123456"
a="123"
&
"456"
a的结果还是"123456"
下面没有加引号是数值可以用作运算计算出结果。上面的是字符串不能运算出结果。
a=123+456
a的结果是579
a=123
&
456
a的结果还是123456
❸ vb 中怎样把一个数据库的导入另一个数据库
方法一:
打开目标数据库,选择文件-获取外部数据-导入,
然后在弹出的窗口中,选择源文件,然后挑选你想要导入的数据即可实现
方法二:
通过sql
server数据导入导出工具实现,详情参阅sql帮助
❹ 用vb,怎么将两个SQL数据库连接起来
用两个adodc或adodb分别连接两个数据库,然后就可以交换数据了。
❺ VB 如何将一条数据加入到两个不同数据库中
你是一个数据库里面的两个表吧,哪么再按照你第一次做的方法在做一次就OK了!
❻ VB里的一个窗体连接两个数据库
private sub comOK_click
if userType="学生" then
'连接学生数据库
else
'连接教师数据库
end if
end sub
❼ vb如何连接两个以上的access数据库
可以使用手动填充MSFLEXGRID控件实现多个数据表的展现,这个需要根据你的表结构来,两个表字段相同吗?两个表有什么联系?这是你连接表必须要考虑得东西!
个人建议你可以使用SQL语句实现两表的合并(具体方法试表结构和关系而定,),建立查询(类似于SQL Sever里的视图),再将MSFLEXGRID控件与此查询绑定即可!
❽ vb如何设置同时操作多个数据库
我教你怎么跨数据库(跨服务器都可以)操作多数据表:
用ACCESS,就用他的一个ODBC功能做桥接,在VB中连接ACCESS数据库照常
我就给个ADO连接ACCESS连接SQL多数据库连接表联合查询三个数据库数据表的例子:
Private Sub 控件名称_事件过程(变量)
Dim A, B, C as String
'-----------------定义变量来存字符串
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\ACCESS数据库.后缀"
'-----------------连接ACCESS数据库照常
A="Select 字段1 AS 名称1, 字段2 as 名称2 From 表1 IN [ODBC] [ODBC;Server=SQL Server;uid=用户名;PWD=密码;Server=服务器IP;DataBase=数据库名1] Where 字段3 LIKE %'5555'%"
B="Select 字段8 AS 名称1, 字段9 as 名称2 From 表2 IN [ODBC] [ODBC;Server=SQL Server;uid=2用户名;PWD=密码;Server=服务器IP;DataBase=数据库名2]"
C="Select 字段3 AS 名称1, 字段4 as 名称2 From 表3 IN [ODBC] [ODBC;Server=SQL Server;uid=3用户名;PWD=密码;Server=服务器IP;DataBase=数据库名3]"
Adodc1.recordsoure= A & "Unoin" & B & "Unoin" & C
Adodc1.Refresh
Set 电子表格.DataSource=Adodc1
End Sub
❾ vb 连接2个access数据库
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb")
第二个连接
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("UpLoadClass.mdb")
打开数据库时
第一个用
Rs.Open Sql_p,Conn,1,1
第二个用
Rs.Open Sql_p,Conn2,1,1
❿ 在VB6.0里,如何同时登陆2个不同的数据库!!
用两个数据库连接不就可以了