把本土数据传到服务器

2013-08-06

把本地数据传到服务器我用的字符串连接，先打开本地数据库，选择前50条数据传送，服务器的连接字符串设为serv

把本地数据传到服务器

   我用的字符串连接，先打开本地数据库，选择前50条数据传送，服务器的连接字符串设为server_connstr,求大神赐教后面的程序。谢谢
Set Rs = CreateObject("ADODB.Recordset")

    SqlConn.Open local_connstr

    strSQL_local = "SELECT top 50 ID, VIN, ScrewID, Torque, Angle, WorkerID, OKFlag, GetTime, SCount, CarType, SubmitFlag, ScrewNo, FilePath, Y1V, Y2V, SubmitMain, SNR, SID, PRG,  TorqueMin, TorqueMax, TorqueTarget, AngleMin, AngleMax, AngleTarget, KENN, IpAddress, SubmitMainFlag FROM Tbl_Screw where (SubmitFlag = 0 or submitFlag is Null) order by ID Desc"

    Rs.Open strSQL_local, SqlConn, adOpenKeyset, adLockOptimistic

    SqlConn.Execute strSQL_local
后面做插入工作的的时候，我每个表里的内容都转为字符串，需要这样么？
If Rs.RecordCount > 0 Then




     Rs.MoveFirst
      For i = 0 To 49

    Myid = CStr(Rs.Fields("ID"))
    myvin = CStr(Rs.Fields("VIN"))
    ScrewID = CStr(Rs.Fields("Screwid"))
    Torque = CStr(Rs.Fields("Torque"))
    Angle = CStr(Rs.Fields("Angle"))
    WorkerID = CStr(Rs.Fields("WorkerID"))
    OKFlag = CStr(Rs.Fields("OKFlag"))
    GetTime = CStr(Rs.Fields("GetTime"))
    Count = CStr(Rs.Fields("SCount"))
    CarType = CStr(Rs.Fields("CarType"))
    SubmitFlag = CStr(Rs.Fields("SubmitFlag"))
    ScrewNo = CStr(Rs.Fields("ScrewNo"))
    FilePath = CStr(Rs.Fields("FilePath"))
    Y1V = CStr(Rs.Fields("Y1V"))
    Y2V = CStr(Rs.Fields("Y2V"))
    SubmitMain = CStr(Rs.Fields("SubmitMain"))
    SNR = CStr(Rs.Fields("SNR"))
    SID = CStr(Rs.Fields("SID"))
    PRG = CStr(Rs.Fields("PRG"))
    TorqueMin = CStr(Rs.Fields("TorqueMin"))
    TorqueMax = CStr(Rs.Fields("TorqueMax"))

    TorqueTarget = CStr(Rs.Fields("TorqueTarget"))
    AngleMin = CStr(Rs.Fields("AngleMin"))
    AngleMax = CStr(Rs.Fields("AngleMax"))
    AngleTarget = CStr(Rs.Fields("AngleTarget"))
    KENN = CStr(Rs.Fields("KENN"))
    pAddress = CStr(Rs.Fields("IpAddress"))
    ubmitMainFlag = CStr(Rs.Fields("SubmitMainFlag") 上传服务器?rs操作
[解决办法]
数据库类型不知，无法判断。
通常批量数据同步尽量用数据库自己的导入导出功能，或者数据库之间直接链接后进行传输。
[解决办法]
参考：http://bbs.csdn.net/topics/20079743
在本地创建链接服务器到服务端数据库，就可以在 SQL 语句中通过 Server.DataBase.DBO.Table 的限定方式直接访问服务端的表。
一句 SQL 就能完成数据复制：
INSERT INTO 服务端表 ... SELECT ... FROM 本地表 ...

热点排行

VB

把本土数据传到服务器