exec master..xp_cmdshell 'bcp "库名..表名" out "d:\tt.txt" -c -t ,-U sa -P password'
exec master..xp_cmdshell 'bcp "库名..表名" out "d:\tt.txt" -c -t , -U sa -P password'注意-t后面的 ' 前后各有一个空格
这个是导入: BULK INSERT 库名..表名 FROM 'c:\test.txt' WITH ( FIELDTERMINATOR = ',', ROWTERMINATOR = '\n' )
'工程-〉引用 ms active data object lib 2.xDim cn As New ADODB.Connection Dim rs As New Recordset Private Sub Form_Load() Dim str As String cn.ConnectionString = "Provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=pubs;User Id=sa;Password=lyjlee;" cn.Open rs.Open "authors", cn, adOpenKeyset, adLockOptimistic If Not rs.EOF Then Open "c:\out.txt" For Output As #1 Do While Not rs.EOF str = rs("au_id") & "," & rs("au_lname") Print #1, str rs.MoveNext Loop End IfEnd Sub
BULK INSERT 库名..表名
FROM 'c:\test.txt'
WITH (
FIELDTERMINATOR = ',',
ROWTERMINATOR = '\n'
)
Dim rs As New Recordset
Private Sub Form_Load()
Dim str As String
cn.ConnectionString = "Provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=pubs;User Id=sa;Password=lyjlee;"
cn.Open
rs.Open "authors", cn, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
Open "c:\out.txt" For Output As #1
Do While Not rs.EOF
str = rs("au_id") & "," & rs("au_lname")
Print #1, str
rs.MoveNext
Loop
End IfEnd Sub