Public conn As ADOCE.Connection Private Sub cmb_test_Click() Dim rs As ADOCE.Recordset Dim show_f As String
If connOpen = True Then Set rs = CreateObject("ADOCE.Recordset.3.0") On Error Resume Next rs.Open "model", conn, adOpenKeyset, adLockOptimistic rs.MoveFirst MsgBox rss.Fields("dbrand") rs.Close End If connClose End Sub Private Sub Form_OKClick() App.End End Sub Function connOpen() As Boolean
On Error Resume Next
connOpen = True
If conn Is Nothing Then Set conn = CreateObject("ADOCE.Connection.3.0") conn.Open gDBFileSpec If conn.Errors.Count > 0 Then MsgBox "errors in connOpen", vbOKOnly DispErrors connOpen = False Else MsgBox "ok" End If End If
On Error GoTo 0
End Function Sub connClose()
On Error Resume Next conn.Close Set conn = Nothing On Error GoTo 0
End Sub
จากคุณ
:
mod / supannak@viriyah.co.th [2006-05-22 14:47:22]
New Article
อัตราค่าโฆษณา
กระทู้ #319 [Palm/PocketPC] (จาก IP: 203.121.188.167)
ความคิดเห็น #5986 (จาก IP: 203.146.147.173)
