我建了一个库q.mdb
里面的字段是
地点 时段 名称 级别 序号想把这样的一句话(北京 29日到30日铁路拥挤指数3级 001)用Insert写入库里为:
地点 时段 名称 级别 序号
北京 29日到30日 铁路拥挤指数 3级 001
怎么做,请指教一下了!
里面的字段是
地点 时段 名称 级别 序号想把这样的一句话(北京 29日到30日铁路拥挤指数3级 001)用Insert写入库里为:
地点 时段 名称 级别 序号
北京 29日到30日 铁路拥挤指数 3级 001
怎么做,请指教一下了!
values ('北京','29日到30日','铁路拥挤指数','3级','001')
Private Sub Command1_Click()
On Error GoTo err
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径\q.mdb;Persist Security Info=False"
cn.CursorLocation=adUseClient'设置客户端游标
cn.Open
cn.Execute("insert into 表 value('具体地点','具体时段','具体名称','具体级别','具体序号')")
cn.Close
Set cn=Nothing
Exit Sub
err:
MsgBox err.Description
End Sub