技术论坛

 回复:怎样在全局变量中写ACCESS数据库?

返回主题列表
作者 主题
chant
游民

经验值:90
发帖数:53
精华帖:0
楼主    2008-04-30 23:00:10
主题:怎样在全局变量中写ACCESS数据库?
在论坛里找了很多也是写EXCEL的,因为都是文本信息,无法用TAG归档,本人技术有限,望各位大侠帮一下忙!!!!

大概情况:通过OPC传来6个变量,5个为文本信息,1个为读取标志位(1,0),当标志位为1,进行归档,将文本信息写入ACCESS(D:\AA.MDB里的BB数据表),完成后将标志位置0


谢谢版主提示,标题已改,还望各位大侠帮帮小弟!!!
城外之人
版主

经验值:18439
发帖数:8685
精华帖:18
    2008-05-04 08:06:49
精华帖  主题:回复:怎样在全局变量中写ACCESS数据库?
Dim MyConn_Access
Dim strSQL
Dim DBName
Dim TableName
Dim rsTemp

DBName = "D:\Test\Test.mdb"
strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & DBName & ";" _
& "Mode=ReadWrite;Persist Security Info=False"
Set MyConn_Access = CreateObject("ADODB.Connection")
With MyConn_Access
.ConnectionString = strSQL
.CursorLocation = 3
.Open
End With

TableName = "MyTest"
strSQL = "Select * From " & TableName
Set rsTemp = CreateObject("ADODB.Recordset")
Set rsTemp.ActiveConnection = MyConn_Access
With rsTemp
.CursorLocation = 3 'adUseClient
.CursorType = 2 'adOpenDynamic
.LockType = 3 'adLockOptimistic
.Source = strSQL
.Open
End With

'操作记录集(插入、编辑、删除等)

rsTemp.Close
Set rsTemp = Nothing
MyConn_Access.Close
Set MyConn_Access = Nothing
无论成与败,无论甜与苦,我还是我。
米儿
游士

经验值:225
发帖数:198
精华帖:4
    2008-05-05 08:26:32
精华帖  主题:回复:怎样在全局变量中写ACCESS数据库?
多研究是没问题的,可要看自己的水平和自己的发展方向,毕竟时间是有限的
还是把有限的时间放在关键的地方的好
有现成的工具,就用现成的,这样可以提高效率
另外再说一点自私的话,如果公司是自己的,省点钱也可以考虑,但如果给人家打工,如果你非要自己开发的话,就要冒开发失败的风险,就算开发成功,领导也不会知道你在开发的过程中付出了多大的努力和辛苦,他会觉得你的东西就是应该的,还会觉得你的东西太简陋,界面太难看,功能太简单。
你会发现你干的东西吃力不讨好。
但如果你直接用现成的工具,这些问题都不存在了。
另外,就算是公司是自己的,这块的钱是否该省也是值得研究的问题,做公司要维护每一个客户,就要提供给客户最好的,最稳定的产品,自己开发的话,代价不见得比买现成的软件少,开发周期,开发成本,这些东西如果你不是很擅长的话,恐怕很难控制。
其实现在楼主问的这个问题是特别简单的问题,只是一个最基本的连接数据库的问题,随便找个IT的人就可以写出来,但到我们这个论坛,就好像是很神秘的东西,懂的人也少,这就是行业的差距。

不知道我说的对不对,也许考虑的太多了
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。