Private Sub Command1_Click () 'Write a file to the database' engineering process: 'Specify the RFile object to open the' load file 'Query record' new record DIM RS AS New AdoDB. Recordset Dim Rfile As New ADODB.Stream Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C: /db1.mdb; Persist Security Info = False" Rfile.Type = adTypeBinary Rfile.Open Rfile.LoadFromFile " C: /1.cel "RS.Open" Select * from Table 1 ", Conn, AdoPendynamic, AdlockOptimistic Rs.AddNew Rs! file = rfile.read ket update = rfile.read ket update = rfile.read ket r
Private submed2_click () 'From the database, build files on the hard disk DIM CONN AS New AdoDB.Recordset Dim Rs as new adoDb.Stream CONN.Open "provcer = Microsoft.jet. OLEDB.4.0; Data Source = C: /Db1.mdb; Persist security info = false "rs.open" SELECT TOP 1 * FROM Table 1 ", conn, adopendynamic, AdlockOptimistic RFile.Type = adtypebinary rfile.open RFile.Write RS File Rfile.Savetofile "C: /2.cel", AdsavecreateOverWrite Rs.close Conn.closend Sub
