以下是我對DBF的操作,不知是否適合於你 Dim Cn As New ADODB.Connection Cn.ConnectionString = "Driver={Microsoft dBASE Driver(*.dbf)};DriverID=277;Dbq=F:\TEST\雜\各種資料的連接\File;" Cn.OpenDim Cm As New ADODB.Command Sql = "insert into test(ID,NAME,SEX,ADDRESS) VALUES ('888','傑西','男','湖南')" Cm.ActiveConnection = Cn Cm.CommandText = Sql Cm.Execute MsgBox "OK" 要注意一點就是此DBF文件不能是只讀的
Sql = "insert into test(ID,NAME,SEX,ADDRESS) VALUES ('888','傑西','男','湖南')"我蒙一下,ID是數字,把上面改為: Sql = "insert into test(ID,NAME,SEX,ADDRESS) VALUES (888,'傑西','男','湖南')"
Dim Cn As New ADODB.Connection
Cn.ConnectionString = "Driver={Microsoft dBASE Driver(*.dbf)};DriverID=277;Dbq=F:\TEST\雜\各種資料的連接\File;"
Cn.OpenDim Cm As New ADODB.Command
Sql = "insert into test(ID,NAME,SEX,ADDRESS) VALUES ('888','傑西','男','湖南')"
Cm.ActiveConnection = Cn
Cm.CommandText = Sql
Cm.Execute
MsgBox "OK"
要注意一點就是此DBF文件不能是只讀的
Sql = "insert into test(ID,NAME,SEX,ADDRESS) VALUES (888,'傑西','男','湖南')"