34,576
社区成员
发帖
与我相关
我的任务
分享
boolean bool;
try
{
Sqlstmt = "UPDATE hnet_record SET name1='" & GPRS2(i) & "',r1=" & GPRS3(i) & ",r2= " & GPRS4(i) _
& ",r3= " & GPRS5(i) & ",r4= " & GPRS6(i) _
& " Where hnetno = " & GPRS1(i)
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = ADOsvr
Cmd.CommandText = Sqlstmt
Debug.Print Sqlstmt
Cmd.Execute
Set Cmd = Nothing
bool=true;
}
catch(Exception ex)
{
bool=false;
}