已知数据库的存放地址和名字，怎样在这些数据库中批量执行sql语句

[liyaohui13098452233]

有两台服务器（局域网），一台服务器上有一个数据库A，表A1中存放着B服务器上的每个数据库的名称和地址，两台服务器上的数据库表结构是一致的

想在PB做一个小功能，从A服务器上的A1表中，读取每个数据库的地址和名次，批量在这些数据库中执行SQL语句。

[二月十六]

读取A服务器上的A1表的数据，拼接成不同的数据库连接字符串，然后批量执行sql语句

[吉普赛的歌]

这个不难吧， 写点伪码：

外循环,遍历每个库，得到连接串
BEGIN
	内循环，遍历需要执行的SQL(如果单个SQL中包含了GO，还得切分)
	BEGIN
		在当前库上执行对应的SQL
	END
END

[liyaohui13098452233]

Transaction 	lt_tran,lt_cus_tran
n_server  ln_Server
String		ls_userid, ls_dbname,ls_empid
long i,ll_count
string ls_customer,ls_khdz,ls_khdb

lt_tran=create Transaction
lt_cus_tran=create Transaction
ln_Server=create n_server

If ln_Server.of_connect( ls_dbname, lt_tran) = -1 Then  Return '2|连接数据库失败！'

select count(customerid) into :ll_count from b_customer using lt_tran;

select Customer,DBdress,DBName into :ls_customer,:ls_khdz,:ls_khdb from b_customer using lt_tran;

for i=1 to ll_count 
	
	// Profile ml
	lt_cus_tran.DBMS = "ADO.Net"
	lt_cus_tran.LogPass = '***'
	lt_cus_tran.LogID = "sa"
	lt_cus_tran.AutoCommit = False
	lt_cus_tran.DBParm = "Namespace='System.Data.OleDb',Provider='SQLOLEDB',DataSource='" + ls_khdz +"',Database='" + ls_khdb +"'"
	lt_cus_tran.Lock = 'RC'


	CONNECT Using lt_cus_tran;
	
	If lt_cus_tran.SQLCode <> 0 Then
		ln_Server.of_disconnect( lt_tran)
		Return '1|建立客户连接数据失败！'+ls_customer+'-'+string(lt_cus_tran.SQLCode)
	End If
	
	 execute immediate :ls_sql using lt_cus_tran;
	 
next 

 if lt_cus_tran.sqlcode=0 then
				ln_server.of_commit( lt_cus_tran)
				return '0|执行完毕!'
 else
				ln_server.of_rollback( lt_cus_tran)
				return '0|执行失败!'
 end if

destroy lt_tran
destroy lt_cus_tran
destroy ln_server

老是提示建立客户连接数据失败，如果我 if lt_cus_tran.sqlcode=0 then 这段放到for循环里去，只是第一个数据库执行了，第二个就不执行

[吉普赛的歌]

没学过 PB ， 但程序连接串基本都是差不多的内容： 1. 服务器 IP ; 2. SQL Server端口 ; 3. 数据库名称 ; 4. 用户名 ; 5. 密码 ; 6. 其它附加信息。 你所有的用户名和密码都是固定的 sa 及 *** ？ 端口都是默认的 1433 ？ 你首先要做的是在 ssms 中以上面 1-5 的参数来测试连接，能正常连接之后再来管程序的事情。 程序最终还是要实际连接执行的， 不要老在程序这里绕， 先做好准备工作。