設想：利用Recordset從數(shù)據(jù)庫里讀取數(shù)據(jù)，然后在DataGridView1中顯示，然后我可以對選中的記錄行，做更新、刪除等操作。'代碼開始Dim Conn As ADODB.Connection '聲明連接數(shù)據(jù)庫對象 -- 用來連接數(shù)據(jù)庫文件，并對數(shù)據(jù)庫以及數(shù)據(jù)表的操作Dim Rst As ADODB.Recordset '聲明數(shù)據(jù)記錄集對象 -- 用來返回數(shù)據(jù)記錄集，并對記錄的操作Conn = New ADODB.Connection '數(shù)據(jù)庫對象的實例化Rst = New ADODB.Recordset '記錄集對象的實例化Dim MainConnect As String'Dim Sql As StringMainConnect = "driver={SQL Server};server=U8101;uid=sa;pwd=usine2315315!@#;database=ufdata_001_2017"conn = New ADODB.ConnectionConn.Open(MainConnect)'Sql = "select * from WA_PRWorkNum"Rst.Open("select cGZGradeNum,cPsn_num,cDay,iWorkNum from WA_PRWorkNum", Conn)DataGridView1.DataSource = RstDataGridView1.Refresh()MsgBox(" 連接成功", vbExclamation + vbOKOnly)'代碼結(jié)束
1 回答
叮當貓咪
TA貢獻1776條經(jīng)驗 獲得超12個贊
Dim Conn As New ADODB.ConnectionDim Rst As New ADODB.RecordsetConn.Open "driver={SQL Server};server=U8101;uid=sa;pwd=usine2315315!@#;database=ufdata_001_2017"Rst.Open "select cGZGradeNum,cPsn_num,cDay,iWorkNum from WA_PRWorkNum", Conn, 1, 1DataGridView1.DataSource = RstDataGridView1.RefreshMsgBox "連接成功", vbExclamation + vbOKOnly |
不要亂用括號。方法（或者把函數(shù)當作方法來使用時）的參數(shù)是不能加括號的。
- 1 回答
- 0 關(guān)注
- 545 瀏覽
添加回答
舉報
0/150
提交
取消