2、为工程添加ADO对象库的引用。工程->引用:Microsoft ActiveX Data Objects2.0 Library
3、为类增加两个新的变量:
Dim con As New ADODB.Connection 定义ADO会话连接对象 Dim cmd As New ADODB.Command 定义ADO命令对象
4、增加初始化函数
Public Function ado_Init() con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Data Source=sms.mdb" cmd.ActiveConnection = con End Function
建立到数据源的物理连接
漂亮MM女性网
指定Command对象当前所属的 Connection 对象。
5、数据库操作函数
Public Function ado_add(ByVal strdata As String) cmd.CommandText = "insert into comdata (timm,datt) values (" + (Format(Date, "YYYY-MM-DD ")) + Str((Time)) + "," + (strdata) + ")" cmd.Execute End Function
将参数保存到SMS.MDB的COMDATA表中
注意:函数声明时必须指定参数是传值(ByVal),否则默认为按地址传递(ByRef)
6、连接关闭函数
Public Function ado_UnInit() con.Close Set cmd = Nothing Set con = Nothing End Function