?? modstartfile.bas
字號:
Attribute VB_Name = "module1"
Public cn As ADODB.Connection
Public name As String
Public Qx As String
Public Function Ex_Sql(ByVal sqlstr As String) As Recordset
Set cm = New ADODB.Command
cm.CommandText = sqlstr
cm.ActiveConnection = cn
cn.CursorLocation = adUseClient
Set Ex_Sql = cm.Execute
End Function
Public Sub showdata(ByVal rs As ADODB.Recordset, ByVal msflexgrid As msflexgrid)
Dim i As Integer
With msflexgrid
.Rows = 1
Do While Not rs.EOF
.Rows = .Rows + 1
For i = 1 To rs.Fields.Count
.TextMatrix(.Rows - 1, i) = rs.Fields(i - 1)
Next i
rs.MoveNext
Loop
End With
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -