资源描述:
《autoit 数据库操作实例》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、2009-10-2917:38$dbname="test.mdb"$tblname="测试表"$fldname="测试字段"$format="int"$sData="123456"$T="*"_CreateDB($dbname)_CreateTBL($dbname,$tblname)_CreateFLD($dbname,$tblname,$fldname,$format);_InsertData($dbname,$tblname,$fldname,$sData);_DeleteData($dbname,$tblnam
2、e,$fldname,$sData)_SelectData($dbname,$tblname,$fldname,$T)Func_CreateDB($dbname)$newMdb=ObjCreate("ADOX.Catalog")$newMdb.Create("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&$dbname)$newmdb.ActiveConnection.CloseEndFuncFunc_CreateTBL($dbname,$tblname)$addtbl=
3、ObjCreate("ADODB.Connection")$addTbl.Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&$dbname)$addTbl.Execute("CREATETABLE"&$tblname)$addtbl.CloseEndFuncFunc_CreateFLD($dbname,$tblname,$fldname,$format)$addfld=ObjCreate("ADODB.Connection")$addfld.Open("Provi
4、der=Microsoft.Jet.OLEDB.4.0;DataSource="&$dbname)$addfld.Execute("ALTERTABLE"&$tblname&"ADD"&$fldname&""&$format)$addfld.CloseEndFuncFunc_InsertData($dbname,$tblname,$fldname,$sData)$addfld=ObjCreate("ADODB.Connection")$addfld.Open("Provider=Microsoft.Jet.OLEDB
5、.4.0;DataSource="&$dbname)$addfld.Execute("InsertInto"&$tblname&"("&$fldname&")"&"VALUES("&$sData&")")$addfld.CloseEndFuncFunc_DeleteData($dbname,$tblname,$fldname,$sData)$addfld=ObjCreate("ADODB.Connection")$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSo
6、urce="&$dbname)$addfld.Execute("DeleteFrom"&$tblname&"Where"&$fldname&"="&$sData)$addfld.CloseEndFuncFunc_SelectData($dbname,$tblname,$fldname,$T)$addfld=ObjCreate("ADODB.Connection")$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&$dbname)$RS=ObjCre
7、ate("ADODB.Recordset")$RS.ActiveConnection=$addfld$RS.Open("Select"&$T&"From"&$tblname)msgbox(0,"",$RS.Fields(0).Name)msgbox(0,"",$RS.Fields(0).Value)$addfld.CloseEndFunc以下是循环读取表记录的例子$tempData=""whilenot$rs.eofandnot$rs.bofif@error=1ThenExitLoop$tempData=$tempD
8、ata&($RS.Fields("value").Value)&"
9、"$rs.movenextWEnd几个自定义函数都是通过ObjCreate("ADODB.Connection")来实现的(创建库使用的是ObjCreate("ADOX.Catalog"))使用sql语句的完整过程:$pro=ObjCreate("ADODB.Connectio