网上找了个连接数据库的类Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean
Public Function OpenCn() As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = "KRISCN" '服务器的名字
conn.Properties("initial catalog").Value = "版本号" '库名
conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "无法连接"
Call MsgBox(mag, vbOKCancel, "Error:Data connect")
addFlag = False
End
End Function
Public Sub clocn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End SubPublic Function openrs(ByVal strsql As String) As Boolean '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
Set rs = New ADODB.Recordset
If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strsql
End With
addFlag = True
openrs = True
Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKCancel, "error:connect")
openrs = False
End
End Function
Public Sub clors()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
End Sub
我在Command1中加入
Private Sub Command1_Click()Call OpenCn
Call openrs("版本号")Call clocn
Call clorsEnd Sub连接好了然后我想的到里面的数据该怎么做????
Public rs As New ADODB.Recordset
Public addFlag As Boolean
Public Function OpenCn() As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = "KRISCN" '服务器的名字
conn.Properties("initial catalog").Value = "版本号" '库名
conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "无法连接"
Call MsgBox(mag, vbOKCancel, "Error:Data connect")
addFlag = False
End
End Function
Public Sub clocn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End SubPublic Function openrs(ByVal strsql As String) As Boolean '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
Set rs = New ADODB.Recordset
If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strsql
End With
addFlag = True
openrs = True
Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKCancel, "error:connect")
openrs = False
End
End Function
Public Sub clors()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
End Sub
我在Command1中加入
Private Sub Command1_Click()Call OpenCn
Call openrs("版本号")Call clocn
Call clorsEnd Sub连接好了然后我想的到里面的数据该怎么做????
解决方案 »
- vb的combobox控件如何接受系统默认字体
- 一个困扰问题
- (从串口)实时跟踪测试仪器发来的数据,采样频率100HZ以上,用API读写串口肯定要快点……
- 请教高手一个关于用VB管理Windows本地用户和组的问题,高分感谢(100)!
- 这个问题好难!这是个联接,进入正题就不止这个分了!
- VB的一个问题求方法
- *****关于VB读写文本文件的一些问题
- 300分请教高手一报表问题。
- 有关TreeView的NodeClick问题
- 我的电脑有两个内存条(不是一种型号),今天用优化大师优化了一下,结果出现不能启动的现象,请问各位高手如何解决?????
- 用load动态加载控件后,控件响应mouse_move事件的问题
- 高分急求HTTPVB高手解决此问题!!!!快进啊!!!!!!!
Private Sub Command1_Click()Call OpenCn
Call openrs("select * from employee")
msgbox rs("name").valueEnd Sub
SQL = "select * from 用户 "
RS.Open SQL, ConnString, , , adCmdText msgbox rs!用户名