源代碼中的類

我這裏有訪問ACCESS數據庫的VB源代碼。要不要壹個樣品給自己參考？

選項顯式

Dim連接為ADODB。關系

Dim WithEvents作為ADODB。記錄集

公共連接字符串美元，用戶名美元，用戶ID美元

私有子命令1_Click()

Classinf

末端接頭

私有子窗體_Load()

conn string = " DRIVER = Microsoft Access驅動程序(*。MDB)；DBQ = " & amp；App。路徑與路徑。" \CourseMIS.mdb "

Set Conn = New ADODB。關系

打開連接

全班同學

末端接頭

私有子類()

暗淡顯示我是單身

Dim strSQl$

Dim rsclass作為ADODB。記錄集

strSQl = "SELECT * FROM Class "

Set rsclass = New ADODB。記錄集

rsclass。康涅狄格州，1，1

cmbClass。清楚的

而不是rsclass。文件結束

cmbClass。AddItem rsclass("ClassID ")。價值

rsclass。下壹步

行

如果cmbClass。ListCount & gt0，然後是cmbClass。ListIndex = 0

rsclass。關閉

設置rsclass = Nothing

末端接頭

私有子類inf()

Dim strS美元

Dim rSt As ADODB。記錄集

strS = "SELECT ClassID，ClassName，DepartID，Description FROM Class WHERE ClassID = ' " & amp；cmbClass。文本&"

Set rSt = New ADODB。記錄集

rSt。打開str，康尼，3，3

設置DataGrid1。數據源= rSt

末端接頭

上一篇:有木有古風的YY頻道呢？ 推薦壹下~

下一篇:阿裏巴巴如何復制？..