| 作者 | 主题 |
|---|---|
|
chant 游民 经验值:90 发帖数:53 精华帖:0 |
楼主
主题:怎样在全局变量中写ACCESS数据库?
在论坛里找了很多也是写EXCEL的,因为都是文本信息,无法用TAG归档,本人技术有限,望各位大侠帮一下忙!!!!
大概情况:通过OPC传来6个变量,5个为文本信息,1个为读取标志位(1,0),当标志位为1,进行归档,将文本信息写入ACCESS(D:\AA.MDB里的BB数据表),完成后将标志位置0 谢谢版主提示,标题已改,还望各位大侠帮帮小弟!!! |
|
城外之人 版主 经验值:18439 发帖数:8685 精华帖:18 |
楼
主题:回复:怎样在全局变量中写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 |
楼
主题:回复:怎样在全局变量中写ACCESS数据库?
多研究是没问题的,可要看自己的水平和自己的发展方向,毕竟时间是有限的
还是把有限的时间放在关键的地方的好 有现成的工具,就用现成的,这样可以提高效率 另外再说一点自私的话,如果公司是自己的,省点钱也可以考虑,但如果给人家打工,如果你非要自己开发的话,就要冒开发失败的风险,就算开发成功,领导也不会知道你在开发的过程中付出了多大的努力和辛苦,他会觉得你的东西就是应该的,还会觉得你的东西太简陋,界面太难看,功能太简单。 你会发现你干的东西吃力不讨好。 但如果你直接用现成的工具,这些问题都不存在了。 另外,就算是公司是自己的,这块的钱是否该省也是值得研究的问题,做公司要维护每一个客户,就要提供给客户最好的,最稳定的产品,自己开发的话,代价不见得比买现成的软件少,开发周期,开发成本,这些东西如果你不是很擅长的话,恐怕很难控制。 其实现在楼主问的这个问题是特别简单的问题,只是一个最基本的连接数据库的问题,随便找个IT的人就可以写出来,但到我们这个论坛,就好像是很神秘的东西,懂的人也少,这就是行业的差距。 不知道我说的对不对,也许考虑的太多了 |