连接数据库代码

USINGSYSTEMDATAUSINGSYSTEMDATAOLEDBSTRINGSTRCONNECTION“PROVIDERMICROSOFTJETOLEDB40“STRCONNECTION“DATASOURCECBEGASPNETNORTHWINDMDB“OLEDBCONNECTIONOBJCONNECTIONNEWOLEDBCONNECTIONSTRCONNECTIONOBJCONNECTIONOPENOBJCONNECTIONCLOSEUSINGSYSTEMDATAUSINGSYSTEMDATASQLCLIENTSTRINGSTRCONNECTION“USERIDSAPASSWORD“STRCONNECTION“INITIALCATALOGNORTHWINDSERVERYOURSQLSERVER“STRCONNECTION“CONNECTTIMEOUT30“SQLCONNECTIONOBJCONNECTIONNEWSQLCONNECTIONSTRCONNECTIONOBJCONNECTIONOPENOBJCONNECTIONCLOSEUSINGSYSTEMDATAORACLECLIENTUSINGSYSTEMDATA/在窗体上添加一个按钮，叫BUTTON1，双击BUTTON1，输入以下代码PRIVATEVOIDBUTTON1_CLICKOBJECTSENDER,SYSTEMEVENTARGSESTRINGCONNECTIONSTRING“DATASOURCESKYUSERSYSTEMPASSWORDMANAGER“/写连接串ORACLECONNECTIONCONNNEWORACLECONNECTIONCONNECTIONSTRING/创建一个新连接TRYCONNOPENORACLECOMMANDCMDCONNCREATECOMMANDCMDCOMMANDTEXT“SELECTFROMMYTABLE“/在这儿写SQL语句ORACLEDATAREADERODRCMDEXECUTEREADER/创建一个ORACLEDATEREADER对象WHILEODRREAD/读取数据，如果ODRREAD返回为FALSE的话，就说明到记录集的尾部了RESPONSEWRITEODRGETORACLESTRING1TOSTRING/输出字段1，这个数是字段索引，具体怎么使用字段名还有待研究ODRCLOSECATCHEXCEPTIONEERESPONSEWRITEEEMESSAGE/如果有错误，输出错误信息FINALLYCONNCLOSE/关闭连接USINGMYSQLDRIVERCS/建立数据库连接MYSQLCONNECTIONDBCONNDBCONNNEWMYSQLCONNECTIONNEWMYSQLCONNECTIONSTRING“LOCALHOST“,“MYSQL“,“ROOT“,“,3306ASSTRINGDBCONNOPEN/执行查询语句MYSQLCOMMANDDBCOMMDBCOMMNEWMYSQLCOMMAND“SELECTHOST,USERFROMUSER“,DBCONN/读取数据MYSQLDATAREADERDBREADERDBCOMMEXECUTEREADEREX/显示数据TRYWHILEDBREADERREADCONSOLEWRITELINE“HOST0ANDUSER1“,DBREADERGETSTRING0,DBREADERGETSTRING1FINALLYDBREADERCLOSEDBCONNCLOSE/关闭数据库连接DBCONNCLOSEOLEDBCONNECTION1OPEN/打开数据库连接OLEDBDATAADAPTER1FILLDATASET1,“ADDRESS“/将得来的数据填入DATASETDATAGRID1DATABIND/绑定数据OLEDBCONNECTION1CLOSE/关闭连接/增加数据库数据THISOLEDBINSERTCOMMAND1COMMANDTEXT“INSERTSINTOSADDRESSNAME,EMAIL,AGE,ADDRESSVALUES“TEXTBOX1TEXT“,“TEXTBOX2TEXT“,“TEXTBOX3TEXT“,“TEXTBOX4TEXT“OLEDBINSERTCOMMAND1CONNECTIONOPEN/打开连接OLEDBINSERTCOMMAND1EXECUTENONQUERY/执行该SQL语句OLEDBINSERTCOMMAND1CONNECTIONCLOSE/关闭连接PROVIDERSYBASEASEOLEDBPROVIDER2INITIALCATALOG