Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset '该函数用来判断
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.ConnectionString = connstring
cnn.Open
Dim stokens() As String
On Error GoTo exectuesql_error
stokens = Split(sql)
If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
cnn.Execute sql
Else
Set rs = New ADODB.Recordset
rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rs
End If
exectuesql_exit:
Set rs = Nothing
Set cnn = Nothing
Exit Function
exectuesql_error:
Resume exectuesql_exit
End FunctionPublic Function connstring() As Stringconnstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/ut1000.mdb"End Function
Private Sub Form_Load()
Dim sql As String
sql = "select * from jjname"
Set rs = ExecuteSQL(sql)
Set MSHFlexGrid1.Recordset = rsFileCopy App.Path & "\ut1000.mdb", "e:\or.mdb" ‘出错:拒绝的权限
End Sub
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.ConnectionString = connstring
cnn.Open
Dim stokens() As String
On Error GoTo exectuesql_error
stokens = Split(sql)
If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
cnn.Execute sql
Else
Set rs = New ADODB.Recordset
rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rs
End If
exectuesql_exit:
Set rs = Nothing
Set cnn = Nothing
Exit Function
exectuesql_error:
Resume exectuesql_exit
End FunctionPublic Function connstring() As Stringconnstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/ut1000.mdb"End Function
Private Sub Form_Load()
Dim sql As String
sql = "select * from jjname"
Set rs = ExecuteSQL(sql)
Set MSHFlexGrid1.Recordset = rsFileCopy App.Path & "\ut1000.mdb", "e:\or.mdb" ‘出错:拒绝的权限
End Sub
解决方案 »
- 点击flexgrid中的某单元格,如何知道哪列和哪行被选中了?
- 急,请高手指教!!!Printer 端口打印 字体的大小设置
- 请教:一条VB语言如何转化为C++语言?
- Access 就没有位运算的吗?
- vb与access做的系统如何该变数据库的绝对路径为相对路径?
- 201上网性价比咋样?贵吗?知道的请举手!!!
- 急,关于ADO连接的问题?
- 如何将PictureBox或Image控件中的图象内容直接写到SQL的图象字段中?
- LISTVIEW中的图标问题。。
- 问个菜鸟问题,请各位高手帮忙
- 为何使用strrpos、substr等会出现“子程序或函数未定义”
- 我是一个初学者,哪一本java教程比较好入门,请推荐一本大家认为最优秀的java入门教材
Dim sql As String
sql = "select * from jjname"
Set rs = ExecuteSQL(sql)
Set MSHFlexGrid1.Recordset = rs
set rs=nothing
FileCopy App.Path & "\ut1000.mdb", "e:\or.mdb" ‘出错:拒绝的权限
End Sub
Dim sql As String
FileCopy App.Path & "\ut1000.mdb", "e:\or.mdb" ‘出错:拒绝的权限sql = "select * from jjname"
Set rs = ExecuteSQL(sql)
Set MSHFlexGrid1.Recordset = rsEnd Sub
Dim rs As ADODB.RecordsetPublic Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset '该函数用来判断
Set cnn = New ADODB.Connection
cnn.ConnectionString = connstring
cnn.Open
Dim stokens() As String
On Error GoTo exectuesql_error
Set rs = New ADODB.Recordset
rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rs
exectuesql_exit:
Exit Function
exectuesql_error:
Resume exectuesql_exit
End FunctionPublic Function connstring() As String
connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\aaa.mdb"
End Function
Private Sub Form_Load()
Dim sql As String
sql = "select * from table1"
Set rs = ExecuteSQL(sql)
Set MSHFlexGrid1.Recordset = rs
rs.Close
cnn.Close
FileCopy App.Path & "\aaa.mdb", "e:\or.mdb"
End Sub