Foxtable(狐表)用户栏目专家坐堂 → [求助]从局域网转为远程的SQL服务器,无法正常输入和保存数据了,救命


  共有3687人关注过本帖平板打印复制链接

主题:[求助]从局域网转为远程的SQL服务器,无法正常输入和保存数据了,救命

帅哥哟,离线,有人找我吗?
linshengqi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:110 积分:1231 威望:0 精华:0 注册:2014/1/20 17:38:00
[求助]从局域网转为远程的SQL服务器,无法正常输入和保存数据了,救命  发帖心情 Post By:2014/8/30 14:54:00 [只看该作者]

因为需联网操作,将之前一直用得好好的局域网存放ACCESS数据改为SQL2008,但是所有通过窗口录入的动作,录完后都无法在TABLE上显示数据,也没有存在服务器上,是不是代码出了什么问题?求帮忙。

 

 

原来的代码如下:在单机或局域网上都可以的,但改为SQL2008,选了外部数据源和外部数据表后就不行了

Dim T_BZ As WinForm.TextBox = e.Form.Controls("T_备注")
Dim T_FP As WinForm.TextBox = e.Form.Controls("T_fa piao")
Dim T_HJDZ As WinForm.TextBox = e.Form.Controls("T_回寄地址")
Dim T_HJGS As WinForm.TextBox = e.Form.Controls("T_回寄公司")
Dim T_LXDH As WinForm.TextBox = e.Form.Controls("T_联系电话")
Dim T_LXR As WinForm.TextBox = e.Form.Controls("T_联系人")
Dim T_MC As WinForm.TextBox = e.Form.Controls("T_名称")
Dim QY As WinForm.ComboBox = e.Form.Controls("T_区域")

With Tables("供应商")
    .Current("备注")=T_BZ.TEXT
    .Current("fa piao抬头")=T_FP.TEXT
    .Current("回寄地址")=T_HJDZ.TEXT
    .Current("回寄公司名称")=T_HJGS.TEXT
    .Current("联系电话")=T_LXDH.TEXT
    .Current("联系人")=T_LXR.TEXT
    .Current("区域")= QY.TEXT
    .Current("名称")=T_mc.text
    .Current("添加时间")=now()
.Current("录入者")=User.Name
   
End With
Tables("供应商").Current.Save()
DataTables("供应商").Save()
Forms("供应商_录入").close()


 回到顶部