我的新增是沒有新增的按鈕,而是在將空白表單(一開始就是空白表單)填完後再將資料存入資料庫~~就是在按儲存的同時存入資料庫,不是按新增的鈕後填資料再存入資料庫
Dim cn As Object
  Dim rs As Recordset
  Set cn = CreateObject("ADODB.Connection")
 
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DB.mdb;Persist Security Info=False"
  Set rs = New ADODB.Recordset
  rs.Open "main", cn

rs.Fields("Name") = Text_name.text
  rs.Fields("Questions") = Text_questions.text
  rs.Fields("Range") = Text_range.text
  rs.Fields("Prolog1") = Text_prolog1.text
  rs.Fields("Prolog2") = Text_prolog2.text
  rs.Fields("Epilog") = Text_epilog.text
  rs.Fields("DateStart") = Text_dateS.text
  rs.Fields("DateFinish") = Text_dateF.text
   
  cn.Close
  Set cn = Nothing

MsgBox "成功建立一資料表!"

全站熱搜

vbqa 發表在 痞客邦 留言(2) 人氣()