看看下面的,有没有跟#符号有关 Dim cnn As New ADODB.Connection Dim cmd As New ADODB.Command Dim str As New ADODB.Recordset Dim cn, str1 As String Set cnn = New ADODB.Connection cnn.Open "CollatingSequence=ASCII;DBQ=c:\ZZ;DefaultDir=c:\ZZ;Deleted=1;Driver={Microsoft dBase Driver (*.dbf)};DriverId=21;FIL=dBase III;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\zz.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=600;SafeTransactions=0;Statistics=0;Threads=3;UID=admin;UserCommitSync=Yes;" str1 = "select * into #tt from file3 " cmd.ActiveConnection = cnn cmd.CommandText = str1 cmd.CommandType = adCmdText
access 数据库也不行。 Dim cnn As New ADODB.Connection Dim cmd As New ADODB.Command Dim str As New ADODB.Recordset Dim cn, str1 As String Set cnn = New ADODB.Connection cnn.Open "DBQ=D:\Microsoft Visual Studio\VB98\BIBLIO.MDB;DefaultDir=D:\Microsoft Visual Studio\VB98;Driver={Microsoft Access Driver (*.mdb)};DriverId=281;FIL=MS Access;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\vb1.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" str1 = "select * into #tt from author " cmd.ActiveConnection = cnn cmd.CommandText = str1 cmd.CommandType = adCmdTextcmd.Execute
先select count(*) from temptable 要是正常得到了就是有此表,否则没有。
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim str As New ADODB.Recordset
Dim cn, str1 As String
Set cnn = New ADODB.Connection
cnn.Open "CollatingSequence=ASCII;DBQ=c:\ZZ;DefaultDir=c:\ZZ;Deleted=1;Driver={Microsoft dBase Driver (*.dbf)};DriverId=21;FIL=dBase III;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\zz.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=600;SafeTransactions=0;Statistics=0;Threads=3;UID=admin;UserCommitSync=Yes;"
str1 = "select * into #tt from file3 "
cmd.ActiveConnection = cnn
cmd.CommandText = str1
cmd.CommandType = adCmdText
那,呵呵,帮不了你。
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim str As New ADODB.Recordset
Dim cn, str1 As String
Set cnn = New ADODB.Connection
cnn.Open "DBQ=D:\Microsoft Visual Studio\VB98\BIBLIO.MDB;DefaultDir=D:\Microsoft Visual Studio\VB98;Driver={Microsoft Access Driver (*.mdb)};DriverId=281;FIL=MS Access;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\vb1.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
str1 = "select * into #tt from author "
cmd.ActiveConnection = cnn
cmd.CommandText = str1
cmd.CommandType = adCmdTextcmd.Execute