VB..........语法错误，帮忙看看，谢谢
大家帮忙看看，没有错误提示，sql2没执行的样子，主要看下DBA.DISPOSITION跟sql2，，，谢谢，在线等
VB code:
Private Sub Command1_Click()
Dim cn_db As New ADODB.Connection
Dim rs_db As New ADODB.Recordset
Dim rs_db2 As New ADODB.Recordset
Dim cn_sql As New ADODB.Connection
Dim sql As String
Dim sql2 As String
Dim dispcount As Integer
dispcount = 0
cn_db.Open "DSN=004_8V;uid=guest;pwd=guest;"
cn_db.CursorLocation = adUseClient
If cn_db.State = 1 Then
rs_db.Open "select City,Areacode,PhoneNumber,LastDisposition,LastModifiedDateTime from DBA.SAMPLE", cn_db, adOpenDynamic, adLockOptimistic
rs_db2.Open "select Disposcode,Description from DBA.DISPOSITION", cn_db, adOpenDynamic, adLockOptimistic
If rs_db.RecordCount > 0 Then
cn_sql.Open "driver={sql server};server=(local);database=tmp_cati;uid=sa;pwd=;"
'On Error Resume Next
'cn_sql.BeginTrans
Do While rs_db(3) = "18"
DoEvents
sql = "insert into 号码总库(城市,区号,号码,处理情况,接触时间) " & _
"values('" & rs_db(0) & "','" & rs_db(1) & "','" & rs_db(2) & "','" & rs_db(3) &
相关问答：
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
只会VB，当过1年的VB程序员
现在想与时俱进，学哪门语言好呢
vb.net ,C# ,Java, 还是VC++?
哪门能够快速的上手，并转型？
C#，winform或webform都可以
vb.net
VC++
引用
VC++
麻烦能说个理由么。。� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
