Office中国论坛/Access中国论坛

标题: 请问各位，有关ADP的保存。 [打印本页]

作者: kdwin 时间: 2002-10-14 19:27
标题: 请问各位，有关ADP的保存。
附我的窗体图片：
请问在ADP中如何用代码把“未绑定的文本框”中的数据写入进表中。
谢谢。

作者: HG 时间: 2002-10-15 00:00
對於少量數據輸入到數據庫中，可以用存儲過程的軟入參數搞定。
對於大量數據輸入到數據庫中，可以用ADO編程來實現，方法同MDB的存取。（只不過數據提供者為MDAC吧了）
不要想像的太過於復雜。把它想像為MDB，KDWIN您就會有很多種方法來搞定它。不是嗎？

作者: kdwin 时间: 2002-10-15 00:33
我用
set n=currentdb.opencordset("table")
n.addnew
n.XX=me.XX
n.update
n.close
set n=nothing
写过，可以在MDB里可以保存，但是在ADP里不可以保存，提示with未定义。我对ADP不太熟，你帮我写一段好吗？我急用。我不想用绑定列对处理数据，查询保存等等，我都是用代码写的，但是现在在保存时卡壳了，帮我写一段，谢谢！

作者: HG 时间: 2002-10-15 01:49
我一般很少用ADO的功能來存取數據的，我只會用ADO的打開存程過程，來傳遞參數，其余的事讓存儲過程雲作了。
你可以這樣考慮，先編寫一個插入表，或更新表的存儲過程，讓這個存儲過程接受輸參數，
然後把你窗體上的數據作為輸入參數傳遞給存儲過程，然後窗本上某一按鈕按下時觸發這些操作。關於給存儲過程傳遞參數的教程和例子ADP欄中很多。

作者: zhuyiwen 时间: 2002-10-15 10:04

以下是引用kdwin在2002-10-14 16:33:14的发言：
我用
set n=currentdb.opencordset("table")
n.addnew
n.XX=me.XX
n.update
n.close
set n=nothing
写过，可以在MDB里可以保存，但是在ADP里不可以保存，提示with未定义。我对ADP不太熟，你帮我写一段好吗？我急用。我不想用绑定列对处理数据，查询保存等等，我都是用代码写的，但是现在在保存时卡壳了，帮我写一段，谢谢！

稍改一下：

Dim n As New ADODB.Recordset

n.open "table", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
n.Addnew
n.Fields("XX") = Me.XX
n.Update
n.Close
Set n=nothing

即可。

[em26]

作者: kdwin 时间: 2002-10-15 16:37
谢谢各位，把此贴列为精品吧，我想好多像我这样的人都有用，对于一对多表单的制作及管理，这是很有用的。
再次谢谢各位。

作者: kdwin 时间: 2002-10-15 17:25

以下是引用zhuyiwen在2002-10-15 2:03:53的发言：

稍改一下：

 Dim n As New ADODB.Recordset

 n.open "table", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 n.Addnew
 n.Fields("XX") = Me.XX
 n.Update
 n.Close
 Set n=nothing

即可。

[em26]

我试了，提示出错，朱哥哥，帮我再看一下

作者: zhuyiwen 时间: 2002-10-16 06:37
不知道问题所在。

作者: HG 时间: 2002-10-16 19:04
KDWIN你要先搞清您是想插入數據還是想更新某表的數據。
然後你才可以轉遞參數給存儲過程呀。

作者: freemanager 时间: 2002-10-16 19:27
代码本身没有问题，出现运行时错误没有别的，应该检查一下你的代码的运行环境。
一、最基本的：引用
二、打出你的CurrentProject.Connection.Connectionstring看看。

作者: kdwin 时间: 2002-10-16 20:33
标题: 请老师在帮忙。

以下是引用freemanager在2002-10-16 11:26:41的发言：
代码本身没有问题，出现运行时错误没有别的，应该检查一下你的代码的运行环境。
一、最基本的：引用
二、打出你的CurrentProject.Connection.Connectionstring看看。

我在引用里找不到CurrentProject.Connection.Connectionstring，请告知操作细则。谢谢。

作者: freemanager 时间: 2002-10-17 00:14
什么乱七八糟的：）
那不是引用，我这是说两个不同的东东！
找个窗体新建一个按钮，在按钮事件中用：
Debug.Print CurrentProject.Connection.Connectionstring
这时候<<立即窗口>>里出现的就是当前库的连接字符串。

作者: kdwin 时间: 2002-10-17 01:03
在立即窗体里有句代码：Provider=MSDataShape.1

ersist Security Info=True;Locale Identifier=1033;Data Source=kdwin;User ID=sa

assword="";Initial Catalog=testSQL.mdf;Data Provider=SQLOLEDB.1

请问我应该如何写保存代码？帮我写一个。

作者: kdwin 时间: 2002-10-17 01:13
看过了，我的计算机名为kdwin，用户名sa，密码没有，数据库testSQL.mdf。

Data Provider=SQLOLEDB.1我不知道它是什么？

作者: freemanager 时间: 2002-10-17 01:49
朱版主的代码就已经是经典了。
看来问题不在这里。
你这样的问题还真古怪哩。只能提些参考意见了：
一、弄个绑定的窗体直接往里输入数据看看成不成吧。或者直接在表里输入也行。
二、编译工程看看。
三、多设断点，试试到底是哪句有毛病。

作者: kdwin 时间: 2002-10-17 18:36
我搞定了，可以用了。加入.value

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)