vb60編譯錯誤

1. VB6.0「編譯錯誤，要求常量表達式」

把Dim a(i,j) As Integer 改成 Dim a(6, 6) As Integer 就可以了

2. vb6.0編譯錯誤——過程聲明與同名事件或過程描述不匹配——在線等待您的解答！追加分哦！

SSTabbuy 應該是個控制項

但聲明： Private Sub SSTabbuy_Click(PreviousTab As Integer) 不是控制項事件的聲明。

糾正辦法，把當前過程內的代碼拷貝出來，然後刪除過程SSTabbuy_Click的全部內容，
在窗口上雙擊SSTabbuy控制項，然後在代碼窗口中選擇click事件
最後把前面拷貝出的代碼復制到過程里

3. vb6.0添加excel的問題 一下代碼提示編譯錯誤 「用戶定義類型未定義」

1：讀取。

1、在VB中，建立一個FORM，在其上放置兩個命令按鈕，將Command1的Caption屬性改為EXCEL，Command2的Caption屬性改為End。然後在其中輸入如下程序：

Dim xlApp As Excel.Application '定義EXCEL類
Dim xlBook As Excel.Workbook '定義工件簿類
Dim xlsheet As Excel.Worksheet '定義工作表類
Private Sub Command1_Click() '打開EXCEL過程
If Dir("D:\temp\excel.bz") = "" Then '判斷EXCEL是否打開
Set xlApp = CreateObject("Excel.Application") '創建EXCEL應用類
xlApp.Visible = True '設置EXCEL可見
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打開EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打開EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '給單元格1行駛列賦值
xlBook.RunAutoMacros (xlAutoOpen) 運行EXCEL中的啟動宏
Else
MsgBox ("EXCEL已打開")
End If
End Sub

Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB關閉EXCEL
xlBook.RunAutoMacros (xlAutoClose) '執行EXCEL關閉宏
xlBook.Close (True) '關閉EXCEL工作簿
xlApp.Quit '關閉EXCEL
End If
Set xlApp = Nothing '釋放EXCEL對象
End
End Sub

2、在D盤根目錄上建立一個名為Temp的子目錄，在Temp目錄下建立一個名為"bb.xls"的EXCEL文件。

3、在"bb.xls"中打開Visual Basic編輯器，在工程窗口中點滑鼠鍵選擇插入模塊，在模塊中輸入入下程序存檔：

Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '寫標志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\temp\excel.bz" '刪除標志文件
End Sub

4、運行VB程序，點擊EXCEL按鈕可以打開EXCEL系統，打開EXCEL系統後，VB程序和EXCEL分別屬兩個不同的應用系統，均可同時進行操作，由於系統加了判斷，因此在VB程序中重復點擊EXCEL按鈕時會提示EXCEL已打開。如果在EXCEL中關閉EXCEL後再點EXCEL按鈕，則會重新打開EXCEL。而無論EXCEL打開與否，通過VB程序均可關閉EXCEL。

2：寫入。
Excel導入sql:

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command2_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=123;Initial Catalog=dataBase001;Data Source=mySERVICE"
cn.CursorLocation = adUseClient
cn.Open
cn.Execute "select * into table4 from OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=Yes;database=d:\temp\bb.xls;','select * from [Sheet1$]')"
cn.Close
Set cn=Nothing
End Sub

4. vb60編譯好的exe中如何定位錯誤發生在哪條語句中

首先生成debug版的exe程序，然後調試狀態下運行exe，出錯後調試器會捕捉到錯誤，然後自動停到源碼位置，或者你可以查看調用堆棧，一直找到你源碼那一層為止。

5. VB6 中函數聲明錯誤編譯不通過，如何解決

這句話是錯誤的，只有定義在調用之後的函數才需要聲明，如果定義在調用之前的函數，無需聲明，例子1，定義在調用之後，必須聲明：main(){int f();//這個聲明是必須的printf("%d",f());}int f(){return 1;}例子2，定義在調用之前，無需聲明：int f(){return 1;}main(){/*int f();//這個聲明不需要*/printf("%d",f());}最後，這個其實是歷史遺留問題，以前的效率較低，編譯器多次掃描源程序麻煩，現代編譯器為了實現優化，都會反復多次掃描源程序。

6. VB6.0編譯錯誤：未找到方法或數據成員

如果你的單選按鈕Option1是控制項數組,則只需將如下代碼：

PrivateSubOption1_Click(IndexAsInteger)
IfOption1.ValueThen
Text4.Text=Option1.Caption
EndIf
EndSub

PrivateSubOption2_Click()
IfOption2.ValueThen
Text4.Text=Option2.Caption
EndIf
EndSub

PrivateSubOption3_Click()
IfOption3.ValueThen
Text5.Text=Option3.Caption
EndSub

PrivateSubOption4_Click()
IfOption4.ValueThen
Text5.Text=Option4.Caption
EndSub

改為：

PrivateSubOption1_Click(IndexAsInteger)
IfOption1(Index).ValueThen
Text4.Text=Option1(Index).Caption
EndIf
EndSub

7. VB 編譯錯誤：無效外部過程

是把代碼寫在子過程、函數過程或屬性過程外而發生的錯誤。

在過程外無效：

該語句必須發生在子過程、函數過程或屬性過程（Property Get、Property Let 和
Property Set）內部。這個錯誤的起因與解決方法如下所示：

*一個可執行的語句，如 Static 或 ReDim，出現在模塊級別中。

在模塊級中 Static 是不需要的，因為所有的模塊級變數都是靜態的。在模塊級中用 Dim 來代替
ReDim。想要在模塊級中創建動態數組，請用
Dim 加空括弧來聲明它。

注意 在模塊級只能使用注釋與聲明性語句，例如
Const、Declare、Deftype、Dim、Option Base、Option
Compare、Option Explicit、Option
Private、Private、Public 和
Type。子過程、函數過程和屬性過程語句發生在它們的過程體之外，但在過程內聲明。

8. vb6.0 編譯錯誤：不能給只讀屬性賦值

控制項的有些屬性是可以在程序中更改，有些是不能更改的，不能改的屬性稱之為只讀屬性，需要在form界面設定好
Text1.MultiLine
Text1.ScrollBars
都是這樣的問題，應該在form界面的控制項屬性表中調整

9. VB 中找不到工程或庫（提示編譯錯誤）怎麼回事

打開EXCEL VB 時彈出編譯錯誤的需要給EXCEL VB設定一個值，即可解決。

具體步驟：

1、首先我們打開一個工作樣表作為例子。