struts如何连接数据库,能否将连接数据库单独做个类
解决方案 »
- VsFlexGrid 如何设置列名?
- dll引用问题:type and stype
- string1= "国家法律aaaaaaaaaa" string2="bbb" 如何让他们占用的长度一样 ?
- 怎样设置使得datagrid在与没有数据数据库绑定时不会显示一行空白行而只显示标题呢
- 能介绍下MENU控件的基本使用方法吗?
- 请教datagrid控件如何控制显示格式?
- 怎样捕获客户端的屏幕?????(高分相送)
- vb连接sql,如果判断是否连接成功,此时已经有一个连接在,谢谢了,在线等
- 关于*.pwl的问题!
- 如何做一个能计元音字符的dll部件?
- VB6.0的进度条控键在哪儿啊
- 急求免费的XP窗体控件!!!!!!!!袖珍XP窗体OCX控件有问题,加入菜单和状态栏都TNND出问题。
Dim msgtext As String
Dim mrc As ADODB.RecordsetPublic Function ExecuteSQL(ByVal sql As String, MsgString As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
'Dim SQL As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(sql)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
cnn.Execute sql
MsgString = sTokens(0) & "query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & "条纪录"
End If
ExecuteSQL_Exit:
Set rst = Nothing
Exit Function
Set cnn = Nothing
ExecuteSQL_Error:
MsgString = "查询错误:" & Err.Description
Resume ExecuteSQL_Exit
End FunctionPublic Function ConnectString() As String
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
End Function