想通过变量写入和for循环进行批量写入记录,$Err = ObjEvent("AutoIt.Error", "ODBCJET_ErroHandler") ;定义一个函数ODBCJET_ErroHandler收集对象的错误
$Name = 122
$IP = 121
$port = 123123
Dim $sServer = '127.0.0.1', $sUsername = 'sa', $sPassword = '' ;三个变量分别是连接数据库用的地址、账号、密码
$Conn = ObjCreate("ADODB.Connection");首先要建立ADODB.Connection类
$Conn.open("DRIVER={SQL Server};SERVER=" & $sServer & ";UID=" & $sUsername & ";PWD=" & $sPassword & ";");使用open方法连接数据库
If @error Then Exit
;如果程序没有退出,说明成功连接上了数据库
;连接成功后我们来读取数据
$Conn.Execute("use A") ;首先要指定一个需要操作的库,这里用系统自带的master库来操作
$RS = ObjCreate("ADODB.Recordset");创建记录集对象
$RS.ActiveConnection = $conn;设置记录集的激活链接属性来自$Conn
$conn.Execute("insert into table1 (Name,Ip,Port) values ('"&$Name&"','"&$Ip&"','"&$Port&"')");
但是想通过for循环实现批量插入、还没实现,请高手帮忙。 |