看流星社区

 找回密码
 注册账号
查看: 3052|回复: 3

[VB] VB远程添加ACCESS的字段和数据

[复制链接]

该用户从未签到

发表于 2011-4-5 10:33:03 | 显示全部楼层 |阅读模式
VB+asp+access如何远程添加字段和据或是用别的什么方法

该用户从未签到

发表于 2011-4-5 10:33:15 | 显示全部楼层
以下是往字段里插入数据的asp代码,你只要在VB的网络控件中传值到这个页面即可

<%  

fwq = Request("fwq")'服务器名
jsm = Request("jsm") '角色名
DBPath = "你的数据库名.mdb"  
Set conn = Server.CreateObject("ADODB.Connection")  
Set rs = Server.CreateObject("ADODB.RecordSet")  
  On Error Resume Next '如果出错,继续执行代码
  conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)  
If Err.Number <> 0 Then  
  Err.Clear  
  Set conn = Nothing  
  Response.Write("数据库连接错误")  
End If  
  rs.open "select * from 用户库 where fwq='" & fwq & "' and jsm='"& jsm &"'",conn,1,1  
      If rs.eof Then'找不到符合条件的记录,则创建新记录     
        sql="Insert Into 用户库(服务器,角色名,备注) Values('"&fwq&"','"&jsm&"','新用户')"
        conn.Execute(sql)
      else''若找到则更新这条记录
        '这里写更新记录的语句
      End If  
    rs.Close  
    set rs = Nothing  
%>  

添加字段的话,应该也不难吧,我也菜只能写这么些了

该用户从未签到

 楼主| 发表于 2011-4-5 10:33:36 | 显示全部楼层
经过一个通宵的学习已经会用VB+ASP向ACCESS添加记录了`还用VB做了个用户注册系统
非常谢楼上的提供方法`

该用户从未签到

发表于 2011-4-5 10:33:44 | 显示全部楼层
不错,学习了
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-4-24 13:33

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表