本人初學VB，想嘗試修改一小段連接資料庫程式運行，但出現“未發現可創建的公共類部件”提示，不知如何解決，下面是代碼，希望有人指教
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'連接資料庫
conn.Open "dsn=htt_ODBC"
'打開資料源（即選定操作的資料物件）
rs.Open "select * from 刀具庫存臺帳 ", conn
MSFlexGrid1.TextMatrix(0, 0) = "姓名"
MSFlexGrid1.TextMatrix(0, 1) = "性別"
MSFlexGrid1.TextMatrix(0, 2) = "語文"
MSFlexGrid1.TextMatrix(0, 3) = "數學"
MSFlexGrid1.TextMatrix(0, 4) = "英語"
'注意recordcount屬性必須在當前記錄指標在最后一條記錄時才會回傳正確的值
rs.MoveLast
MSFlexGrid1.Rows = rs.RecordCount + 1
MSFlexGrid1.Cols = rs.Fields.Count
Dim i%
i = 1
rs.MoveFirst
Do While (Not rs.EOF)
MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)
MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)
MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)
MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)
MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)
rs.MoveNext
i = i + 1
Loop
End Sub
uj5u.com熱心網友回復：
conn.Open "dsn=htt_ODBC"好色部分應該是錯誤的，你可以創建一個資料庫工程，然后，視窗中添加一個adodc控制元件，點擊connctionstring屬性，安裝向導幫你設定好連接字串，然后測驗成功后，拷貝出來uj5u.com熱心網友回復：
在“工程”－》“參考”選單里面參考一下“Microsoft ActiveX Data Objects 2.8 Library”uj5u.com熱心網友回復：
可以顯示了，但運行時出現下標越界的問題。這可能是什么問題uj5u.com熱心網友回復：
MSFlexGrid1.Cols = rs.Fields.Count+1轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/139655.html