vb数据库程序.docVIP

在VB数据库编程中连接ACESS数据库的语句Public userid As String Public user As String Public admin As Boolean Public passcount As Integer Public connectionstr Public appph Public Sub main() *****connectionstr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.path .\ddd.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456789******* appph = App.path userlogin.Show (1) If userlogin.login Then flash.Show (1) MDImain.Show End If End Sub Public Sub main() Dim filenames As String filenames = Dir(c:\, vbNormal + vbDirectory) Do While filenames Debug.Print filenames filenames = Dir ’再次调用dir函数,此时可以不带参数 Loop End Sub VB ACESS数据库中查询商品名字，但是在一个文本框中怎样输出的语句怎么写priavte sub text1_change() dim rs as new adodb.recordset dim sql as string sql = select name from tb where id = text1.text rs.open sql,cnn if rs.eof then text2.text= else text2.text=rs(0) endif rs.close end sub vb6.0＋acess数据库编程,用adodc,用commandbutton增加一条记录怎么编程 浏览次数：795次悬赏分：10 | 解决时间：2009-7-27 11:25 | 提问者：yeyqx 用rsRecordSet.AddNew增加一条记录的时候,保存时,出错3251,说不支持更新,说可能是提供程序的限制,也可能是选定锁定类型的限制.具体程序如下: Private Sub cmdSave_Click() If cmdAdd.Caption = 取消 Then rsRecordSet.AddNew j = j + 1 connconnection.Execute (insert into course(Kcbh,Kcmc)) End If Call WriteDataFromControls 调用函数，给相应的字段赋值 rsRecordSet.Update mblnAddMode = False cmdSave.Enabled = False If cmdAdd.Caption = 取消 Then cmdAdd.Caption = 添加 End If If cmdEdit.Caption = 取消 Then cmdEdit.Caption = 修改 End If Call EnableNavigation cmdEdit.Enabled = True cmdAdd.Enabled = True cmdDelete.Enabled = True rsRecordSet.Close rsRecordSet.Open End Sub 最佳答案 rsRecordSet是怎样打开的呢?要这样 rsRecordSet.Open select * from 表 ,cn, adOpenStatic, adLockOptimistic 分享给你的朋友吧： i贴吧 新浪微博 腾讯微博 QQ空间 人人网 豆瓣 MSN 对我有帮助 0 回答时间：2009-7-10 13:42 | 我来评论 Option Explicit Public conn As New ADODB.Connection Public Rs As New ADODB.Recordset Private Sub Command1_Click() Adodc2.Recordset.AddN