大唐双龙传rpg守三个城:大家帮帮忙啊,急!!,在线等

来源:百度文库 编辑:中科新闻网 时间:2024/05/01 17:50:45
Private Sub Command1_Click()
rs.AddNew
rs.名字 = Combo2.Text
rs.类型 = Combo1.Text
rs.规格 = Combo3.Text
rs.数量 = Text.Text
rs.Update
rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing

MsgBox "ok"
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
+ App.Path + "\" + xmmz & ";Persist Security Info=true"
Adodc1.RecordSource = "select * from 项目"
Adodc1.Refresh
Set dbase = OpenDatabase(App.Path & "\" + xmmz)
Set rs = dbase.OpenRecordset(" select * from 项目")
End Sub

问题也不说
还要我去思考