module1.bas

一个简单的数据库操作例子,特别适合初学者.vb数据库编程练习

Attribute VB_Name = "Module1"
Public id1 As String
Public id2 As String
Public Conn As ADODB.Connection

'Public Function Executeqx(ByVal txt As Integer) As String
'Dim sql As String

'Dim rst As ADODB.Recordset

'Set Conn = New ADODB.Connection
'Dim strConn As String
'strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\order.mdb" & ";Persist Security Info=False"
'Conn.Open strConn

'Set rst = New ADODB.Recordset
'sql = "select quanxian from 管理员 where name='" & UserName & "'"
'rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
'If rst.EOF = True Then
'MsgBox "非法用户！", vbExclamation + vbOKOnly, "警告"
'Executeqx = "nothing"
'Exit Function
'End If
'If rst.Fields(0) = 1 Then
'Executeqx = "admin"
'Exit Function
'End If
'rst.Close
'sql = "select quanxian from use where name='" & UserName & "'"
'rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
'If rst.Fields(0) = 2 Then
'Executeqx = "readonly"
'Exit Function
'End If
'Select Case txt
'  Case 1
'  sql = "select qx1 from use where username='" & UserName & "'"
 ' Case 2
  'sql = "select qx2 from use where username='" & UserName & "'"
  'Case 3
  'sql = "select qx3 from use where username='" & UserName & "'"
'End Select
'On Error GoTo exectuesql_error

 ' Set rst = New ADODB.Recordset
  'rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
 ' If rst.Fields(0) = "y" Then
  '  Executeqx = "true"
  'Else
   ' Executeqx = "false"
  'End If
'exectuesql_exit:
 ' Set rst = Nothing
 ' Set mycon = Nothing
 ' Exit Function
'exectuesql_error:
'  Resume exectuesql_exit


'End Function