在vb6中調用mysql查詢

Question

我想調用我在mysql中創建的查詢。它通過navicat界面工作。我想通過訪問這個VB6查詢我碰到一個「運行時錯誤91對象變量或塊變量未設置」

我的代碼VB6：

Dim con As ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim SqlCmd As ADODB.Command 

con.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=databasename;Username=user;password=pw" 

Set SqlCmd = New ADODB.Command 
SqlCmd.ActiveConnection = con 
SqlCmd.CommandType = adCmdStoredProc 
SqlCmd.CommandText = "Stock Movement" 

Set rs = sqlcms.Execute 

我不知道在con.open是什麼失蹤？

預先感謝您

Answer 1

你打電話con.Open但是你有沒有實例化對象呢。

變化Dim con As ADODB.Connection到

Dim con As New ADODB.Connection