㈠ 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建立数据库
1、首先点击打开主菜单栏中的“外接程序”选项。
㈢ vb如何连接两个以上的access数据库
可以使用手动填充MSFLEXGRID控件实现多个数据表的展现,这个需要根据你的表结构来,两个表字段相同吗?两个表有什么联系?这是你连接表必须要考虑得东西!
个人建议你可以使用SQL语句实现两表的合并(具体方法试表结构和关系而定,),建立查询(类似于SQL Sever里的视图),再将MSFLEXGRID控件与此查询绑定即可!
㈣ vb sql 2个数据库 联合查询 如何连接
就这样就行,不需要修改。连接字符串中的Initial Catalog指定的数据库名只是默认的数据库名。如果你在查询语句中指明了数据库名,就和它没关系了。
㈤ 在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数据库连接起来
用两个adodc或adodb分别连接两个数据库,然后就可以交换数据了。
㈦ 在VB6.0里,如何同时登陆2个不同的数据库!!
用两个数据库连接不就可以了
㈧ 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