module1.bas

一个比较完整的数据库编程技巧”洗浴管理系统“

Attribute VB_Name = "Module1"
Option Explicit
Public Function ESQL(ByVal sql As String) As ADODB.Recordset   '定义函数
 '定义连接
 Dim cnn As ADODB.Connection
 Dim rs As ADODB.Recordset
 '创建连接
 Set cnn = New ADODB.Connection
 '打开连接
 cnn.Open StrCnn
 Set rs = New ADODB.Recordset
 rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
 Set ESQL = rs
End Function
Public Function StrCnn()
'返回一个数据库连接
 StrCnn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=XYGLXT"
End Function

Function valiText(keyIn As Integer, validateString As String, Editable As Boolean) As Integer
Dim valiDatelist As String
Dim keyOut As Integer
  If Editable = False Then
     valiDatelist = UCase(validateString) & Chr(8)
  Else
     valiDatelist = UCase(validateString)
  End If
  If InStr(1, valiDatelist, UCase(Chr(keyIn)), 1) > 0 Then
     keyOut = keyIn
  Else
     keyOut = 0
  Beep
  End If
  valiText = keyOut
End Function