VB连接数据库.docVIP

VB连接数据库的方法大全 Adodc连接法 非编程连接法：操作方便，但会因数据移动造成数据库断链接。 编程连接法：解决了数据移动造成数据库断链接的现象，使用的语句如下： ①路径不需要获取的情况： Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + \db1.mdb;Persist Security Info=False 设置数据库路径 Adodc1.CommandType = adCmdText 设置记录源 Adodc1.RecordSource = select * from message 连接数据库的message表文件 Adodc1.CommandType的说明 Adodc1.CommandType = 8 ：adcmdunkown 产生Recordsource命令类型未知，通常使用SQL Adodc1.CommandType = 1 ：adcmdtext Recordsource由命令文本产生，通常使用SQL Adodc1.CommandType = 2 ：adcmdtable Recordsource由为单个表名 Adodc1.CommandType = 4 ：adcmdstoredproc Recordsource由存储过程产生 连接SQL Server 的代码： Private Sub Form_Load() Adodc1.ConnectionString = Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=仓库;Data Source=FNL-XQURVVITG0W Adodc1.CommandType = adCmdText 设置记录源 Adodc1.RecordSource = select * from 库存表 连接数据库“仓库”的“库存表”文件 Adodc1.Refresh End Sub ②数据库名和表名可通过文本框方式获取：首先新建两个文本框，取名为txtpath 和 txttbl，在命令按钮的click事件中添加下面代码： Dim path As String, tabel As String path = \ Txtpath.Text .mdb tabel = Txttbl.Text Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.path path ;Persist Security Info=False 设置数据库路径 Adodc1.CommandType = adCmdText 设置记录源 Adodc1.RecordSource = select * from tabel 连接数据库的message表文件 附：文本框连接Adodc的方法： Set Text1.DataSource = Adodc1 Text1.DataField = 姓名Private Sub Command1_Click() Adodc1.Recordset.AddNew 添加新纪录 End Sub 提交按钮代码： Private Sub Command2_Click() 如果是文本框修改数据库信息，就必须使用If句式判断主索引是否为空 Adodc1.Recordset.Update 保存 Adodc1.Refresh 刷新 End Sub 首记录按钮代码： Private Sub Command3_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 没有记录，不能跳转, , 系统提示 Else Adodc1.Recordset.MoveFirst End If End Sub 末记录按钮代码： Private Sub Command4_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 没有记录，不能跳转, , 系统提示 Else Adodc1.Recordset.MoveLast End If End Sub 上一条记录按钮代码： If Adodc1.Recordset.RecordCount = 0 Then MsgBox 没有记录，不能跳转, , 系统提示 ElseIf Adodc1.Recordset.RecordCount = 1 Then Adodc1.Recordset.MoveFirst Else Adodc1.Record