Public 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 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 sucessful" 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 Set cnn = Nothing Exit Function executesql_error msgstring = "查询错误" & Err.Description Resume executesql_exit
End Function
Public Function connectstring() As String connectstring = "filedsn=material.dsn;uid=sa;pwd=sa" End Function
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
