求高手帮我VB.NET编写成一个DLL

下面是我一个连接oracle和执行语句的一个源码，我现在想把它编写成一个dll，方便其他语言自定义调用！希望高手帮我修改修改下
下面是代码，可能不全，字数限制

补充：try
            {
                string str27;
                string str28;
                string str29;
                string str9 = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" + str + ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" + str2 + ")));User Id=" + str3 + ";Password=" + str4 + ";";
                OracleConnection connection = new OracleConnection(str9);
                connection.set_ConnectionString(str9);
                connection.Open();
                string str10 = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" + str5 + ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" + str6 + ")));User Id=" + str7 + ";Password=" + str8 + ";";

                OracleConnection connection2 = new OracleConnection(str10);
                connection2.set_ConnectionString(str10);
                connection2.Open();

答案：接着上面的源码
               OracleCommand command = new OracleCommand();
                command.set_Connection(connection2);
                command.set_CommandTimeout(0);
                string s = "select count(*) from  tab where  tname='TLHQ_TTT'";
                command.set_CommandText(s);
                OracleDataReader reader = command.ExecuteReader();
                reader.Read();
                if (reader.get_Item(0).ToString() == "1")
{
                    s = " drop table tlhq_ttt ";
                    command.set_CommandText(s);
                    command.ExecuteReader();
                    s = " create table tlhq_ttt (cn  varchar(50) ,QUESTION VARCHAR(50), ANSWER_MD5 VARCHAR(50),PASSWD_MD5 VARCHAR(50),OTHER_EMAIL VARCHAR(100),REGIP VARCHAR(40), oldcn varchar(50),bz number(1) default 0 )";
                    command.set_CommandText(s);
                    command.ExecuteReader();
}
                else
{
                    s = " create table tlhq_ttt (cn  varchar(50) ,QUESTION VARCHAR(50), ANSWER_MD5 VARCHAR(50),PASSWD_MD5 VARCHAR(50),OTHER_EMAIL VARCHAR(100),REGIP VARCHAR(40),oldcn varchar(50),bz number(1) default 0 )";
                    command.set_CommandText(s);
                    command.ExecuteReader();
}
string str12 = "select cn, QUESTION,ANSWER_MD5,PASSWD_MD5,OTHER_EMAIL,REGIP  from user_basic order by uin ";
                OracleCommand command2 = new OracleCommand();
                command2.set_Connection(connection);
                command2.set_CommandTimeout(0);
                command2.set_CommandText(str12);
                OracleDataReader reader2 = command2.ExecuteReader();
                int num = 0;
                while (reader2.Read()){
                    num++;
                    this.richTextBox1.Text = "正在把oracle副站帐号导入oracle主站temp...提示信息不显示了也属于正常情况.耐心等待....., 读取/写入记录数:" + num.ToString();
                    this.richTextBox1.Refresh();
                    string str13 = reader2.get_Item(0).ToString();
                    string str14 = reader2.get_Item(1).ToString();
                    string str15 = reader2.get_Item(2).ToString();
                    string str16 = reader2.get_Item(3).ToString();
                    string str17 = reader2.get_Item(4).ToString();
                    string str18 = reader2.get_Item(5).ToString();
                    s = "INSERT INTO  tlhq_ttt (cn,question,answer_md5, passwd_md5,other_email,regip  ) VALUES ('" + str13 + "','" + str14 + "','" + str15 + "','" + str16 + "','" + str17 + "','" + str18 + "')";
                    command.set_CommandText(s);
                    command.ExecuteReader();
}

其他：1.那是c#代码
2.不明白你的意思。
3.你到底想干什么？
你得在外面套一个类 ，和一个项目命名空间。
你指明了对外接口才能调用啊。
比如。要把这个文件放到DB命名空间下，放在Oracle 类里，
然后说明一个方法如TransferData（），
通过DB.Oracle.TransferData 来调用。
等等
你把问题讲明白了，别人才能帮你。 阿萨德发撒地方萨芬撒的发送到飞洒短发 

上一个：C#/VB.NET中 UDP协议连接服务器问题...运行没出错..但是收不到信息.
下一个：求一个开源的ASP或者VB.NET群博客程序