Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

adp参数传递

lphwee  发表于:2008-06-24 22:05:02  
复制

我在sql2000中设计一个数据库,用access2000项目做前台,其中数据库设计table1表,字段:b1,b2,在access项目中作了个窗体有文本框wb1,wb2,我想在数据库中做一个过程,把wb1,wb2,插入table1的b1,b2字段中,请问如何实现?

 

Top
彭海涛 发表于:2008-06-25 12:02:51

你可以使用数据表邦定窗体,也可以用ADO来帮助你实现这个功能!

ADO的运用请参考ACCESS自动的帮助.



韩志 发表于:2008-08-27 22:38:54

给你个简单的示例

Sub AddData()
    Dim Con As New ADODB.Connection
    Dim Rec As New ADODB.Recordset
    Con.Open "Provider=MSDataShape.1;Persist Security Info=True;Data Source=192.168.10.201;User ID=sa;Password=abc;Initial Catalog=fulltrysale;Data Provider=SQLOLEDB.1"
    Rec.Open "tblcode_xxj", Con, adOpenKeyset, adLockOptimistic'红色的是表名
    Rec.AddNew
    Rec("cpid") = Me.cpid
    Rec("nd") = Me.nd
    Rec("yf") = Me.yf
    Rec("xxj") = Me.xxj
    Rec.Update
    Rec.Close
    Con.Close
  
End Sub

 

别忘了在VBA编辑界面里引用ADO



总记录:2篇  页次:1/1 9 1 :