好好锻炼 发表于 2012-3-18 21:56:40

关于数据库的问题

Func new()   ;新建数据库和表
      $time=@MIN&@SEC&'-'&@MDAY&@HOUR&'-'&@YEAR
      $newMdb = ObjCreate('ADOX.Catalog')
      $newMdb.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
      $newmdb.ActiveConnection.Close;建数据库
      $addtbl = ObjCreate("ADODB.Connection")
      $addTbl.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
      $addTbl.Execute("CREATE TABLE " & $tblname)
      $addtbl.Close;建表
      $addfld = ObjCreate("ADODB.Connection")
      $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
      ;$addfld.Execute("ALTER TABLE " & $tblname & " ADD name text(255),Repair text(255),Fault text(255),Solve text(255),Person text(255),Whether text(255),Repair text(255),cost text(255),Completed text(255),ID identity(1, 1) primary key")
                $addfld.Execute("ALTER TABLE " & $tblname & " ADD ipr int,po text(255),name text(255),spec text(255),unit text(255),counta int,station text(255),cost text(255),ledger text(255),ID identity(1, 1) primary key")
      $addfld.Close;建列表名
      MsgBox(0,'提示','数据库创建成功!)
EndFunc;店名 |报修人 |故障详情|解决方法 |负责人|是否重复|报修时间|完成时间|编号

Func xie()
      If GUICtrlRead($Input1)<>'' And GUICtrlRead($Input3)<>'' Then
                $read1=GUICtrlRead($Input1)
                $read2=GUICtrlRead($Input2)
                $read3=GUICtrlRead($Input3)
                                $read4=GUICtrlRead($Input4)
                $read5=GUICtrlRead($Input5)
                $read6=GUICtrlRead($Input6)
                                $read7=GUICtrlRead($Input7)
                $read8=GUICtrlRead($Input8)
                $read9=GUICtrlRead($Input9)
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &$mdb_data_path & ";Jet OLEDB:Database Password=" & $mdb_data_pwd)
                $addfld.execute("insert into " & $tblname &" (店名 ,报修人 ,故障详情,解决方法 ,负责人,是否重复,报修时间,完成时间,编号) values('"& $read1 &"','"& $read2 &"','"& $read3 &"','"& $read4 &"','"& $read5 &"','"& $read6 &"','"& $read7 &"','"& $read8 &"','"& $read9 &"')")
                $addfld.close
                du()
EndFunc       


有谁能帮忙看看是那里写错了，数据库就是建不起来，建起来了写不进数据，老是提示错误。前一个是建数据库的，后一个是写数据的。各位大大帮帮忙，我是个新手搞这个数据库都搞了一个礼拜了，资料也看了很多，还是搞不懂。

水木子 发表于 2012-3-18 22:19:54

本帖最后由 水木子 于 2012-3-18 22:28 编辑

回复 1# 好好锻炼

好好锻炼 发表于 2012-3-18 23:10:10

回复 2# 水木子

谢谢版主了，看了你的终于搞定了。
页: [1]
查看完整版本: 关于数据库的问题