Dim cn As ADODB.ConnectionSet cn = New ADODB.ConnectionDim x, l As LongDim sql As Stringx = 2With cn.Provider = "Microsoft.Jet.OLEDB.4.0".ConnectionString = "Data Source=" & wkname & ";" & _"Extended Properties=Excel 8.0;".OpenEnd WithDim rs As ADO Read More
posted @ 2007-01-23 14:57
attitudedecidesall
Views(274)
Comments(0)
Diggs(0)

浙公网安备 33010602011771号