Option Explicit
Private Sub text1_validate(cancel As Boolean)
If IsNumeric(Text1.Text) = False Then
MsgBox "請輸入日期"
End If
End Sub
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim sinput As String
Dim ID As String
Dim IDNUMBER As String
Dim NAME As String
Dim SEX As String
Dim BIRTHDAY As String
Dim SZTID As String
Dim BANKID As String
Dim SBID As String
Dim NID As String
Dim SBTYPE As String
Dim PRITEDATE As String
Dim FLAGID As String
Dim MEM As String
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\LOG.mdb"
rs.ActiveConnection = cn
cn.ConnectionString = "dsn=DataCard"
sinput = Text1.Text
rs.Open "SELECT ID , IDNUMBER,NAME,SEX,BIRTHDAY,SZTID,BANKID,SBID,NID,SBTYPE,PRITEDATE,FLAGID,MEM FROM CardData WHERE CardData.MEM = sinput", cn
cm.CommandText = "insert into CardData values('" & ID & "','" & IDNUMBER & "','" & NAME & "','" & SEX & "','" & BIRTHDAY & "','" & SZTID & "','" & BANKID & "','" & SBID & "','" & NID & "','" & SBTYPE & "','" & PRITEDATE & "','" & FLAGID & "','" & MEM & "')"
cm.Execute
End Sub
為實作access資料篩選，要求從text控制元件中輸入篩選資訊，點擊按鈕后篩選出資料并將其放入另一個資料庫中。
uj5u.com熱心網友回復：
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\LOG.mdb"
cn.Execute "INSERT INTO CardData IN [" & App.Path & "\另一個資料庫檔案名.mdb] SELECT ID, IDNUMBER, NAME, SEX, BIRTHDAY, SZTID, BANKID, SBID, NID, SBTYPE, PRITEDATE, FLAGID, MEM FROM CardData WHERE MEM ='" & Text1 & "'"
假定 MEM 欄位是字符型。如果是數值型則 ... WHERE MEM =" & Text1
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/122890.html
標籤：非技術類