蓝色的忧郁 发表于 2011-4-5 10:33:03

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

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做了个用户注册系统
非常谢楼上的提供方法`

gggxxx 发表于 2011-4-5 10:33:44

不错,学习了
页: [1]
查看完整版本: VB远程添加ACCESS的字段和数据