vb读写数据库的问题

'数据库连接代码：
Public Function ExeSQL(sql As String) As ADODBRecordset
Dim Conn As New ADODBConnection
Dim rs As New ADODBRecordset
ConnOpen "Provider=SQLOLEDB1;Password=;Persist Security Info=True;User ID=;Initial Catalog=;Data Source=(local)"
'上面引号中的代码取得方法：
'添加一个adodc控件，点击ConnectionString属性
'在“使用连接字符串”下面点击生成按钮
'按照提示生成数据库连接字符串
'将得到的字符串粘贴到上面的引号中
If InStr(1, UCase(sql), "DROP") > 0 Or InStr(1, UCase(sql), "DELETE") > 0 Or InStr(1, UCase(sql), "CREATE") > 0 Or InStr(1, UCase(sql), "UPDATE") > 0 Or InStr(1, UCase(sql), "INSERT") > 0 Then
ConnExecute (sql)
Else
rsOpen sql, Conn, 1, 3
end if
Set rs = Nothing
Set Conn = Nothing
End Function
然后定义一个字符串行变量str，将SQL语句赋值给这个字符串str，再调用ExeSQL(str)就行了

以上就是关于vb读写数据库的问题全部的内容，包括:vb读写数据库的问题、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！