vb 用文本框往数据库MDB.数据表添加数据的详细案例

发布网友发布时间：2024-10-02 23:36

共2个回答

热心网友时间：2024-10-12 04:35

vb6.0写的,810行,10000多个字,百度发不了
功能:
建立文件夹,创建数据库，显示、添加、删除、修改、查找数据，表格，排序，导出为电子表格。
支持模糊查询、任意字段组合查询
5分不够. 至少6分

热心网友时间：2024-10-12 04:29

Private Sub Command1_Click()
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False"
SqlStr = "Select * From 表1"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
rst.AddNew
rst.Fields("姓名").Value = Text1.Text
rst.Fields("学号").Value = Text2.Text
rst.UpdateBatch
Text1.Text = ""
Text2.Text = ""
cn.Close
End Sub