处理字符串，合成SQL，然后执行。 分别是：查询、更改、删除、添加。 代码如下：   Public Function get_all_single_column_info()Function get_all_single_column_info(ByVal TableName, ByVal columnid, ByVal condition) As String
 On Error GoTo showErrors
Set clsLink = New DBManager
Dim strSQL
Dim tmpstr
Dim count As Integer
count = 0
If condition = "" Then
condition = "1=1"
End If
strSQL = "SELECT * FROM " & TableName & " where " & condition
If (clsLink.connToSQL("Sports", loginForm.ipTEXT.Text, loginForm.dbuser, loginForm.dbpwd) = True) Then
If clsLink.RecordSetDB(strSQL) = True Then
Set rst = clsLink.DBGetRecord
rst.MoveFirst
While rst.EOF <> True
If count = 0 Then
tmpstr = rst.Fields(columnid)
Else
tmpstr = tmpstr & "||" & rst.Fields(columnid)
End If
rst.MoveNext
count = count + 1
Wend
get_all_single_column_info = tmpstr
clsLink.CloseDB
Exit Function
Else
get_all_single_column_info = ""
clsLink.CloseDB
Exit Function
End If
Else
get_all_single_column_info = ""
clsLink.CloseDB
Exit Function
End If
Exit Function
showErrors:
get_all_single_column_info = ""
'MsgBox Err.Description
clsLink.CloseDB
 End Function
'modify_str: 列名1=值1,列名2=值2...
Public Function modify()Function modify(ByVal TableName, ByVal modify_str, ByVal condition) As Boolean
On Error GoTo showErrors
Set clsLink = New DBManager
Dim strSQL
If condition = "" Then
condition = "1=1"
End If
strSQL = "UPDATE " + TableName + " SET " + modify_str + " WHERE " + condition
If (clsLink.connToSQL("Sports", loginForm.ipTEXT.Text, loginForm.dbuser, loginForm.dbpwd) = True) Then
If clsLink.ExecuteSQL(strSQL) = True Then
modify = True
clsLink.CloseDB
Else
modify = False
clsLink.CloseDB
End If
End If
Exit Function
showErrors:
modify = False
clsLink.CloseDB
End Function
Public Function delete()Function delete(ByVal TableName, ByVal condition) As Boolean
On Error GoTo showErrors
Set clsLink = New DBManager
Dim strSQL
If condition = "" Then
condition = "1=1"
End If
strSQL = "DELETE FROM " + TableName + " WHERE " + condition
If (clsLink.connToSQL("Sports", loginForm.ipTEXT.Text, loginForm.dbuser, loginForm.dbpwd) = True) Then
If clsLink.ExecuteSQL(strSQL) = True Then
delete = True
clsLink.CloseDB
Else
delete = False
clsLink.CloseDB
End If
End If
Exit Function
showErrors:
delete = False
clsLink.CloseDB
End Function
' 要求：
' 在 字段==值 这一部分要求==两边没有空格。不进行语法分析，不可以再使用 “|”来分割字符串
Public Function insert()Function insert(ByVal TableName, ByVal insertString) As Boolean
On Error GoTo showErrors
Set clsLink = New DBManager
Dim strSQL
If Trim(insertString) = "" Then
insert = False
Exit Function
End If
Dim Tmpin
Dim names
Dim values
Tmpin = Split(insertString, ",")
Dim i
Dim tmpstr
Dim tmpstrin
For i = 0 To UBound(Tmpin)
tmpstr = Trim(Tmpin(i))
tmpstrin = Split(tmpstr, "==")
If i = 0 Then
names = tmpstrin(0)
values = tmpstrin(1)
Else
names = names + "|" + tmpstrin(0)
values = values + "|" + tmpstrin(1)
End If
Next i
Dim tmpname
Dim tmpvalue
tmpname = Split(names, "|")
tmpvalue = Split(values, "|")
For i = 0 To UBound(tmpname)
If i = 0 Then
tmpstr = tmpname(i)
Tmpin = tmpvalue(i)
Else
tmpstr = tmpstr + "," + tmpname(i)
Tmpin = Tmpin + "," + tmpvalue(i)
End If
Next i
strSQL = "INSERT INTO " & TableName & " ( " & tmpstr & " ) VALUES (" & Tmpin & ")"
If (clsLink.connToSQL("Sports", loginForm.ipTEXT.Text, loginForm.dbuser, loginForm.dbpwd) = True) Then
If clsLink.ExecuteSQL(strSQL) = True Then
insert = True
clsLink.CloseDB
Else
insert = False
clsLink.CloseDB
End If
End If
Exit Function
showErrors:
insert = False
clsLink.CloseDB
End Function
以上。 本文来源：http://blog.csdn.net/solaris_navi/archive/2007/08/23/1756188.aspx |
站内文章搜索
