Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim strSql As String
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yedapeng;Data Source=YEDAPENG"
cnn.Open
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
Select Case cnn.State
Case adStateClosed
MsgBox "adstateclosed"
Case adStateOpen
MsgBox "adstateopen"
End Select
strSql = "select * from gequ"
rs.Open "select * from gequ", cnn
Set DataGrid1.DataSource = rs
rs.Close
cnn.Close
End Sub
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim strSql As String
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yedapeng;Data Source=YEDAPENG"
cnn.Open
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
Select Case cnn.State
Case adStateClosed
MsgBox "adstateclosed"
Case adStateOpen
MsgBox "adstateopen"
End Select
strSql = "select * from gequ"
rs.Open "select * from gequ", cnn
Set DataGrid1.DataSource = rs
rs.Close
cnn.Close
End Sub
解决方案 »
- 在windows中剪切或者复制的时候不想用右键,有没有可能用vb写个按钮,对在任何程序中选中的文字复制/剪切?
- vb读取EXCEl时读不全的问题
- slider控件问题,大家帮我看下,谢谢!~
- 关于shell语句执行带开关程序不支持中间带空格路径的问题!
- ****** 没有放分的,但是经典,不来会后悔的 ******
- 如何用winsock 处理多客户的请求?
- 关于运行bat文件的问题
- 各位高人帮忙!!!
- 小弟有个API中关于GetCaretPos调用问题请高手帮助,拜托啊!!!
- Win2000支不支持双屏显示?
- 请问一下怎样像realoneplayer一样实现用鼠标拖动边框来改变窗体大小啊(是左边的)谢谢
- 超菜,请帮我解释一下这几条语句!
一点注解都没有~
看的都费神