vb连oracle教程

系统环境：1、操作系统：Windows2000Server2、数据库：Oracle8iR2(8.1.6)forNT企业版3、开发工具：VisualBasic6.0中文版连接方法：一、安装Oracle8iR2(8.1.6)forNT企业版使用典型安装，安装目录为D:\Oracle；注：安装完Oracle后，在D:\Oracle\Ora81\BIN\目录下会有oradc.ocx文件存在，VB可使用此控件访问Oracle数据库二、安装VisualBasic6.0中文版把VisualBasic6.0光盘放入光驱，使用典型安装，安装目录为D:\ProgramFiles\MicrosoftVisualStudio\VB98；三、生成Oracle实验记录连入SQL*Plus，以system/manager用户登录SQLconnsystem/manager创建新的用户：如user1/pass1，赋予connect,resource权限。SQLgrantconnect,resourcetouser1identifiedbypass1;SQLconnuser1/pass1SQLcreatetabletest(anumber,bchar(19));SQLinsertintotestvalues(1,to_char(sysdate,'yyyy-mm-ddhh24:mi:ss'));SQLinsertintotestvalues(2,to_char(sysdate,'yyyy-mm-ddhh24:mi:ss'));SQLinsertintotestvalues(3,to_char(sysdate,'yyyy-mm-ddhh24:mi:ss'));SQLinsertintotestvalues(4,to_char(sysdate,'yyyy-mm-ddhh24:mi:ss'));SQLinsertintotestvalues(5,to_char(sysdate,'yyyy-mm-ddhh24:mi:ss'));SQLcommit;SQLselect*fromtest;AB-----------------------------12000-11-2820:27:3322000-11-2820:27:3632000-11-2820:27:3842000-11-2820:27:4052000-11-2820:27:52D:\Oracle\Ora81\network\ADMIN\tnsnames.ora中有如下内容：ORADB=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.1.1.1)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=oradb)))总结：Oracleservice_names：oradbOracle用户名：user1户名密码：pass1测试表名：testtnsnames：oradb四、启动VisualBasic6.0，写连接Oracle的VB程序开始－＞程序－＞MicrosoftVisualBasic6.0中文版－＞MicrosoftVisualBasic6.0中文版文件－＞新建工程－＞VB企业版控件，如下图：添加访问Oracle的部件（CTRL+T）：工程－＞部件－＞OracleDataControl，如下图：选中此控件（OracleDataControl），单击“确定”（此控件对应的就是D:\Oracle\Ora81\BIN\oradc.ocx）VB开发窗口右边的工具箱面板上会出现此控件的图形标志，如下图：用鼠标双击此控件（ORADC），再双击MSFlexGrid控件（上图中另一个画红框的），把它们放到窗体Form1上，默认名称为ORADC1和MSFlexGrid1，如下图：修改控件ORADC1和MSFlexGrid1的属性，如下图：ORADC1的Connect属性：user1/pass1ORADC1的DatabaseName属性：oradbORADC1的RecordSource属性：select*fromtestMSFlexGrid1的DataSource属性：ORADC1也可以不设置ORADC1控件的任何属性，而使用窗体的Form_Load()过程来给ORADC1控件赋值PrivateSubForm_Load()ORADC1.Connect=user1/pass1ORADC1.DatabaseName=oradbORADC1.RecordSource=select*fromtestORADC1.RefreshEndSub按F5，运行此程序，结果如下图：