%*&^%(**&)(*&$^%((&$#@#$@#@@!@!~!$#@&(*())(&%^$##$@^%&*&)(*)__+*&^%&*%^*(&()*_)(+^%^%&%^^%
| hanyu 回复于：2003-06-09 18:20:45 |
| PB有针对400的开发工具包，不知道VB有没有，如果用ODBC,OLEDB各种语言应该没有区别。 |
| pcas400 回复于：2003-06-10 11:36:55 |
| VB有针对AS/400的开发工具包，不过不是VB带的，只要你的机器上安装有VB，再安装OS/400 V5R1，OS/400会自动在VB的菜单上加上这一项。 |
| 向唐 回复于：2003-06-10 14:13:11 |
| [quote:65c710a85d="pcas400"]VB有针对AS/400的开发工具包，不过不是VB带的，只要你的机器上安装有VB，再[u:65c710a85d]安装OS/400 V5R1，OS/400会自动在VB的菜单上加上这一项[/u:65c710a85d]。[/quote:65c710a85d]
不理解，会不会是指安装CA400啊。 |
| pcas400 回复于：2003-06-11 15:09:59 |
| VB有针对AS/400的开发工具包，不过不是VB带的，只要你的机器（PC）上安装有VB，再在该PC上安装OS/400 V5R1的Client Access时Client Access会自动在VB的菜单上加上这一项。 |
| sunnyliang 回复于：2003-06-11 19:31:36 |
| 安装好ca400,配置好odbc, 用delphi,vb,c++ builder之类的软件就可以用了。 |
| pcas400 回复于：2003-07-09 07:44:09 |
| 谁有用VB进行400开发的经验？ |
| pcas400 回复于：2003-08-13 07:48:12 |
| 到底有没有有用VB进行400开发经验的朋友？ |
| yhp 回复于：2003-08-13 08:45:28 |
| 你想做什么？我可以帮帮看 |
| layyf 回复于：2003-08-13 09:13:48 |
| 是不是用ca的odbc？ |
| 子樵 回复于：2003-08-13 16:48:17 |
| 一般的情况下是安装CA后使用ODBC,而且会多出几个专门的控件.好象这个问题应该是指如何在PC上开发应用程序使用后台400上的DB2数据库.
这种应用的好处是作出的界面要友好很多,报表也好写,但是安全性会差的没法说.看看你的上司是否同意你这么做了. |
| pcas400 回复于：2003-08-14 07:32:44 |
| 我有VB在PC上的编程经验，我只是想学习用VB在AS/400上编程。 |
| 子樵 回复于：2003-08-14 08:59:23 |
| 400上使用VB? 一个是IBM一个是微软.好象就没有编译器.而且VB的图形界面在400上也不太合适吧. |
| pcas400 回复于：2003-08-14 10:41:22 |
| CA上有一个VB工具包呀 |
| michael9406 回复于：2003-08-14 21:07:04 |
| 都不知道你们在谈什么。。。可能都是高手了。 |
| 人世间 回复于：2003-08-25 15:54:08 |
| 呵呵，我有啦，是DB2数据库的。
用ADO，RDO都可以的。 前提是要装CA。 和我联系吧！ |
| pcas400 回复于：2003-08-26 09:34:20 |
| 谢谢，能给我一份吗？ |
| 人世间 回复于：2003-08-28 13:07:39 |
| RDO 方式
Private Sub RDO_DB2_Click() Dim ConnStr As String Dim Sqlstr As String Dim UserID As String Dim Password As String Dim RdoConn As New RDOConnection Dim RdoRst As rdoResultset UserID = " wxc " Password = " wxc " 'RdoConn.Connect = "DSN=" + DSNName + ";uid=" + UserID + ";pwd=" + Password '方式一 联接 RdoConn.Connect = "server=192.168.12.254;driver={Client Access ODBC Driver (32-bit)}" + ";uid=" + UserID + ";pwd=" + Password + ";database=qgpl;system=S651826C" RdoConn.CursorDriver = rdUseOdbc RdoConn.EstablishConnection '方式二 联接 'With RdoConn ' .Connect = "server=192.168.12.254;driver={Client Access ODBC Driver (32-bit)}" + ";uid=" + UserID + ";pwd=" + Password + ";database=qgpl;system=S651826C" ' .LoginTimeout = 5 ' .EstablishConnection 'End With strSql = "select * from erpdtalib.xtm03" Set RdoRst = RdoConn.OpenResultset(strSql) Do Until RdoRst.EOF Debug.Print RdoRst("xtdwdm") & " " & RdoRst("xtdwmc") RdoRst.MoveNext Loop RdoRst.Close Set RdoConn = Nothing '没有加错误处理 End Sub ------------------------------------------------------------------------------- ADO 方式 Private Sub ADO_DB2_Click() Dim ConnStr As String Dim Sqlstr As String Dim UserID As String Dim Password As String Dim AdoConn As New ADODB.Connection 'ADO连接类型 Dim AdoRst As New ADODB.Recordset UserID = "wxc" 'as400 用户对数据库要有权限 Password = "wxc" 'ConnStr = "dsn=" + DSNName + ";uid=" + UserID + ";pwd=" + Password + ";database=qgpl;system=S651826C" 'ConnStr = "server=192.168.12.254;driver={Client Access ODBC Driver (32-bit)}" + ";uid=" + UserID + ";pwd=" + Password + ";database=qgpl;system=S651826C" ConnStr = "server=192.168.12.254;driver={iSeries Access ODBC Driver}" + ";uid=" + UserID + ";pwd=" + Password + ";database=erpdtalib;system=S651826C" AdoConn.Open ConnStr strSql = "select * from erpdtalib.xtm03" Set AdoRst = AdoConn.Execute(strSql) While Not AdoRst.EOF Debug.Print AdoRst("xtdwdm") & " " & AdoRst("xtdwmc") AdoRst.MoveNext Wend AdoRst.Close Set AdoConn = Nothing End Sub |
| wildfish 回复于：2003-10-27 09:58:58 |
| v5r2的可以用oledb.client access5.1就可以了。速度还好，连接来得快一些。
支持事务。 |
| lliang0488 回复于：2004-04-15 20:14:00 |
| 我用这种方法成功连接上了，但是我用VB代码对它进行更新时却报错
用 rst("code")=txtcode.text rst("name")=txtname.text rst.update 在 rst("code")=txtcode.text 时就报错了,错误是: Current Record don't support updating , this is may be limition updating , if or select locktype 各位大侠，这是怎么一回事呢? |
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/