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) &
相关问答：
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
