高校问答the sting:我是VB新手,谁能帮我解释一下下面的代码的意思,最好是详细解释,
来源：百度文库 编辑：高校问答 时间：2024/04/27 22:41:08
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim miCount As Integer
Private Sub Form_Load()
Dim i As Integer
i = 0
txtSQL = "select * from user_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
With txtUserName
......
上面的看不懂,数据库用的是Access,连接表是user_Form,VB和ACCESS是怎么连接的?
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim miCount As Integer
Private Sub Form_Load()
Dim i As Integer
i = 0
txtSQL = "select * from user_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
With txtUserName
......
上面的看不懂,数据库用的是Access,连接表是user_Form,VB和ACCESS是怎么连接的?
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=user.mdb"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select * from user", db, adOpenStatic, adLockOptimistic
这个是常用数据库联接方式 USER.MDB可以替换成其他数据库文件名（包括PATH） select * from user 是需要执行的语句。返回的数据集存放在adoPrimaryRS变量中
有三种方法可以实现对access访问：
一是使用VB的可视数据管理器；二是ADO数据控件和数据绑定控件；三是ADO对象模型。其中：ADO对象模型是最好的一种方法，但的需要编写程序代码。第一种最简单，不用编写程序代码。
Option Explicit (VB强制变量声明的转用语句)
下面是定义了一堆变量，然后连接ACCESS数据库。用的SQL语言！