我是VB新手，想通過VB建立一個表格，其中可以動態增加行和列。想來想去也沒有想到什么好的方法，決定用OLE 插入EXCEL的方法來進行類似表格的輸入。有沒有熟悉OLE的VB大神來教一下小弟，Q964467376，先在此多謝~
uj5u.com熱心網友回復：
Dim rs As ADODB.RecordsetFunction openconn()
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\aqxc\aqxc.mdb"
End Function
Function closeconn()
conn.Close
End Function
Private Sub Command1_Click()
Call openconn
Set rs = New ADODB.Recordset
rs.Open "select * from czy", conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("操作員") = Text1.Text
rs("密碼") = Text2.Text
rs.Update
rs.Close
Set rs = Nothing
Call closeconn
MsgBox "添加資料成功!"
Text1 = ""
Text2 = ""
End Sub
Private Sub Command2_Click()
End
End Sub
Dim rs As ADODB.Recordset
Function openconn()
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\aqxc\aqxc.mdb"
End Function
Function closeconn()
conn.Close
End Function
Private Sub Command1_Click()
Call openconn
Set rs = New ADODB.Recordset
rs.Open "select * from czy", conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("操作員") = Text1.Text
rs("密碼") = Text2.Text
rs.Update
rs.Close
Set rs = Nothing
Call closeconn
MsgBox "添加資料成功!"
Text1 = ""
Text2 = ""
End Sub
我用的是ACCESS+EXECL
只要用vb寫個匯出程式就可以了
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/127639.html
標籤：控件
下一篇：VBA 高手請進