用vb编写activex初次旅行

最新推荐文章于 2017-10-02 00:20:49 发布

brave1

最新推荐文章于 2017-10-02 00:20:49 发布

阅读量1.7k

点赞数

文章标签： vb microsoft function object string 数据库

本文链接：https://blog.csdn.net/brave1/article/details/392086

版权

exeScope软件：可以看到activex控件的classid(GUIID)

有了id后我们就可以通过类似oCAPICOM.方法（)来调用ACTIVEX控件中编写的方法了

*****************VB怎样连接数据库**************************

Public Function jj( ) As String

Dim cnn As adodb.Connection
Dim rstC As adodb.Recordset
Set cnn = New adodb.Connection
cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=c://db1.mdb"

Set rstC = New adodb.Recordset
With rstC
Set .ActiveConnection = cnn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.MaxRecords = 2
.Open "select * from 表1"
End With
For j = 0 To rstC.RecordCount
If rstC.EOF = False Then

For i = 0 To rstC.Fields.Count - 1
   Print (rstC.Fields(i).Value)

   Next i
   rstC.MoveNext
   End If
   Next j

//几点要注意的问题

（1）vb中的循环

for 变量=0 to 10

statement

next 变量

（2）true=-1

false=0

（1）vb的每个语句结束后不带分号

（1）VB的函数返回值

Public Function jj( ) As String

函数体中要返回值的时候写作：ff()=要返回的值