高手帮帮忙！（在线等待）

Question

1.我用vb+sql+ado做了一个信息管理系统，sql做后台数据库。现在此程序安装在服务上（也就是后台数据所在的机器），局域网中的其他机器也安装此程序，请问，其他机器如何使用服务器中的数据来运行这个程序呢？
2.关于上述问题如何写连接数据库字符窜connectionstring?如何打包？
3.小妹在线等待，恳请各位高手帮帮忙！小妹不胜感激！如有不明白之处清在线交流。
4.份不够可在加！

Answer 1

狼妹妹？
哈哈
1。直接在connectionstring连接服务器数据库就可以了，其他应该注意的是多用户调用冲突问题，用事务处理解决。
2。"Provider=SQLOLEDB.1;Password=*****;Persist Security Info=True;User ID=sa;Initial Catalog=服务器名;Data Source=数据库名"3。你是小妹？
4。.....

Answer 2

第一：
private sub TSave()
cn.begintrans
on error goto InsertErr
    cn.execute(SQL语句）
    cn.CommitTrans
    exit sub 
InsertErr:
    cn.RollbackTrans
    msgbox "ERROR",vbinformation,"AAA"
end sub
第二：
private sub TSave()
dim rsMain as new adodb.recordset‘主表
dim rsDetail as new adodb.recordset’明细表
连接自己写
cn.begintrans
on error goto InsertErr
    　with rsmain
           .addnew
           .fields(0).value=text1.text
           .................
           .update
      end with
      for i=0 to txt.count-1
            with rsdetail
                 .addnew
                 .fields(i).value=txt(i).text
                 ...........

Answer 3

.update
            end with
       next 
       cn.CommitTrans
       exit sub 
InsertErr:
    cn.RollbackTrans
    msgbox "ERROR",vbinformation,"AAA"
end sub
第三：（大型数据库SQL Server）
private sub TSave()
dim sqlstr as string
sqlstr="Begin trans insert into table(field1,....fieldn) values(value1,value2.....valuen) comm trans"
cn.execute(sqlstr)
end sub

Answer 4

BENGINTRANS
  。。
ENDTRANSROLLBACKTRANS