EFU0387的专栏

Sub ReadRstPic() Dim BtArr() As Byte Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim myPath As String Dim myTable As String Dim SQL As String myPath = ThisWorkbook.Path & "\员工管理.accdb" myTable = "员工档案...

 要点： 1、选择的驱动程序一定要对--jet4.0 具体如下： 1、查 select * from opendatasource('Microsoft.Jet.OLEDB.4.0','data source=D:\我的文档\access\素材\Northwind.mdb')...运货商 2、增 insert into opendatasource('Microsoft.Jet.