adodb(vb中adodb的用法)
vb中adodb的用法?
网友:像風在裏 提问
vb中adodb的用法
五星知识达人网友:狂恋 解答于 2022-04-02 21:02
ADODB先要引用才可以的Dim myconn As New ADODB.ConnectionDim myrecord As New ADODB.RecordsetSet myconn = New ADODB.Connectionmyconn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=F:\ACCESS数据库\db1.mdb”myconn.OpenSet myrecord = New ADODB.Recordsetmyrecord.Open “insert into 学生表 (ID,姓名,班级,性别,民族,年龄) values(30318,’邹六峰’,’高一一班’,0,’汉’,2)”, myconn, adOpenDynamic, adLockOptimisticmyrecord.Open “select * from 学生表 where ID =30318”, myconn, adOpenDynamic, adLockBatchOptimisti
1楼网友:佘樂 解答于 2022-04-02 21:54
首先引用:MS activeX data object 2.0 libr…或更高1 与数据库建立连接Option ExplicitPublic cn As ADODB.ConnectionSub Mdb_open() Set cn = New ADODB.Connection On Error Resume Next cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\mydate.mdb” & “;Jet OLEDB:Database Password=51082481;Persist Security Info=False” End Sub2 运用方法Private Sub Command2_Click() Dim rs As ADODB.Recordset sql = “select * from 表”‘sql语句 核心,根据目的不同 语法也不一样 set rs = cn.Execute(sql)’执行语句 if not rs.eof then ‘如果存在记录 …要作的事情 end if set rs=nothingEnd Sub
本文地址:https://www.cubemovie.cn/hetong/89338.html