请教数据库连接！

tzwwy

请教大侠，最简单的连接数据的代码能不能公布一下？？最好是Access的

[ 本帖最后由 tzwwy 于 2008-5-19 15:40 编辑 ]

Rota

供你参考,并不复杂:

$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, $tblname, $fldname, $sData)
_SelectData($dbname, $tblname, $fldname, $T)
Func _CreateDB($dbname)
$newMdb = ObjCreate("ADOX.Catalog")
$newMdb.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)
$newmdb.ActiveConnection.Close
EndFunc

Func _CreateTBL($dbname, $tblname)
$addtbl = ObjCreate("ADODB.Connection")
$addTbl.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)
$addTbl.Execute("CREATE TABLE " & $tblname)
$addtbl.Close
EndFunc

Func _CreateFLD($dbname, $tblname, $fldname, $format)
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)
$addfld.Execute("ALTER TABLE " & $tblname & " ADD " & $fldname & " " & $format)
$addfld.Close
EndFunc

Func _InsertData($dbname, $tblname, $fldname, $sData)
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)
$addfld.Execute("Insert Into " & $tblname & " (" & $fldname & ") " & "VALUES ("&$sData&")")
$addfld.Close
EndFunc

Func _DeleteData($dbname, $tblname, $fldname, $sData)
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)
$addfld.Execute("Delete From " & $tblname & " Where " & $fldname & " = " &$sData)
$addfld.Close
EndFunc

Func _SelectData($dbname, $tblname, $fldname, $T)
$addfld = ObjCreate("ADODB.Connection")

$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)
$RS =ObjCreate("ADODB.Recordset")
$RS.ActiveConnection = $addfld
$RS.Open   ("Select "&$T & " From " & $tblname )
msgbox(0,"",$RS.Fields(0).Name)
msgbox(0,"",$RS.Fields(0).Value)

$addfld.Close
EndFunc

以下是循环读取表记录的例子
$tempData=""
while not $rs.eof and not $rs.bof
  if @error =1 Then ExitLoop
  $tempData=$tempData&($RS.Fields("value").Value)&"|"
  $rs.movenext
WEnd



几个自定义函数都是通过ObjCreate("ADODB.Connection")来实现的 （创建库使用的是ObjCreate("ADOX.Catalog")）

使用sql语句的完整过程：
$pro = ObjCreate("ADODB.Connection")
$pro.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)
$pro.Execute(sql)
$pro.Close

华杰

原帖由 Rota 于 2008-5-6 17:16 发表
供你参考,并不复杂:

$dbname="test.mdb"
$tblname="测试表"
$fldname="测试字段"
$format="int"
$sData="123456"
$T="*"
_CreateDB($dbname)
_CreateTBL($dbname, $tblname)
_CreateFLD($dbname, $tblnam ...

已经很完整。再问一下楼上的，有没有收藏有关SQL方面的代码？方便的话提供一下，谢谢

mz9909

不错哦，只是有密码的呢？

马甲

原帖由 mz9909 于 2008-5-6 23:06 发表
不错哦，只是有密码的呢？

Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname

上面的改成下面的

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $dbname& ";Jet Oledb:Database Password=这是密码"

Rota

SQL 也是大同小异的.可以参考一下这里.

        $addfld=ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& $dbname)
        $rs=ObjCreate("ADODB.Recordset")
        $rs.ActiveConnection=$addfld
        $rs.Open("Select What from "& $tblname & " Where ID='" & InputBox("","What") &"'")


同样用$rs.eof去判断是否结束,用movenext去找下一条记录.

ken0137

例子，查询

Conn = ObjCreate("ADODB.Connection")
                $Conn.Open("Provider=SQLOLEDB; Server=IP地址;Database=数据库名;Uid=用户名 ;Pwd=密码;")
                $RS = ObjCreate("ADODB.Recordset")
                $RS.ActiveConnection = $Conn
                $RS.Open("Select * From AllInOne where Sn_Definition=" & $Sn_Definition)
                _GUICtrlListView_DeleteAllItems($ListView1)
                $i = 0
                While (Not $RS.eof And Not $RS.bof)
                        $listvalue = $listvalue & $RS.Fields(4).value & "|" & $RS.Fields(5).value & "|" & $RS.Fields(3).value & "|" & $RS.Fields(1).value & "|" & $RS.Fields(9).value & "|" & $RS.Fields(7).value & "|" & Chastatus($Status)
                        GUICtrlCreateListViewItem($listvalue, $ListView1);显示$listvalue
                        $RS.movenext ;移到下一条记录
                        $listvalue = ""
                        $i = $i + 1
                WEnd
                $RS.close
                $Conn.Close