USINGSYSTEMDATAUSINGSYSTEMDATAOLEDBSTRINGSTRCONNECTION“PROVIDERMICROSOFTJETOLEDB40“STRCONNECTION“DATASOURCECBEGASPNETNORTHWINDMDB“OLEDBCONNECTIONOBJCONNECTIONNEWOLEDBCONNECTIONSTRCONNECTIONOBJCONNECTIONOPENOBJCONNECTIONCLOSEUSINGSYSTEMDATAUSINGSYSTEMDATASQLCLIENTSTRINGSTRCONNECTION“USERIDSAPASSWORD“STRCONNECTION“INITIALCATALOGNORTHWINDSERVERYOURSQLSERVER“STRCONNECTION“CONNECTTIMEOUT30“SQLCONNECTIONOBJCONNECTIONNEWSQLCONNECTIONSTRCONNECTIONOBJCONNECTIONOPENOBJCONNECTIONCLOSEUSINGSYSTEMDATAORACLECLIENTUSINGSYSTEMDATA/在窗體上添加一個按鈕，叫BUTTON1，雙擊BUTTON1，輸入以下代碼PRIVATEVOIDBUTTON1_CLICKOBJECTSENDER,SYSTEMEVENTARGSESTRINGCONNECTIONSTRING“DATASOURCESKYUSERSYSTEMPASSWORDMANAGER“/寫連接串ORACLECONNECTIONCONNNEWORACLECONNECTIONCONNECTIONSTRING/創(chuàng)建一個新連接TRYCONNOPENORACLECOMMANDCMDCONNCREATECOMMANDCMDCOMMANDTEXT“SELECTFROMMYTABLE“/在這兒寫SQL語句ORACLEDATAREADERODRCMDEXECUTEREADER/創(chuàng)建一個ORACLEDATEREADER對象WHILEODRREAD/讀取數(shù)據(jù)，如果ODRREAD返回為FALSE的話，就說明到記錄集的尾部了RESPONSEWRITEODRGETORACLESTRING1TOSTRING/輸出字段1，這個數(shù)是字段索引，具體怎么使用字段名還有待研究ODRCLOSECATCHEXCEPTIONEERESPONSEWRITEEEMESSAGE/如果有錯誤，輸出錯誤信息FINALLYCONNCLOSE/關(guān)閉連接USINGMYSQLDRIVERCS/建立數(shù)據(jù)庫連接MYSQLCONNECTIONDBCONNDBCONNNEWMYSQLCONNECTIONNEWMYSQLCONNECTIONSTRING“LOCALHOST“,“MYSQL“,“ROOT“,“,3306ASSTRINGDBCONNOPEN/執(zhí)行查詢語句MYSQLCOMMANDDBCOMMDBCOMMNEWMYSQLCOMMAND“SELECTHOST,USERFROMUSER“,DBCONN/讀取數(shù)據(jù)MYSQLDATAREADERDBREADERDBCOMMEXECUTEREADEREX/顯示數(shù)據(jù)TRYWHILEDBREADERREADCONSOLEWRITELINE“HOST0ANDUSER1“,DBREADERGETSTRING0,DBREADERGETSTRING1FINALLYDBREADERCLOSEDBCONNCLOSE/關(guān)閉數(shù)據(jù)庫連接DBCONNCLOSEOLEDBCONNECTION1OPEN/打開數(shù)據(jù)庫連接OLEDBDATAADAPTER1FILLDATASET1,“ADDRESS“/將得來的數(shù)據(jù)填入DATASETDATAGRID1DATABIND/綁定數(shù)據(jù)OLEDBCONNECTION1CLOSE/關(guān)閉連接/增加數(shù)據(jù)庫數(shù)據(jù)THISOLEDBINSERTCOMMAND1COMMANDTEXT“INSERTSINTOSADDRESSNAME,EMAIL,AGE,ADDRESSVALUES“TEXTBOX1TEXT“,“TEXTBOX2TEXT“,“TEXTBOX3TEXT“,“TEXTBOX4TEXT“OLEDBINSERTCOMMAND1CONNECTIONOPEN/打開連接OLEDBINSERTCOMMAND1EXECUTENONQUERY/執(zhí)行該SQL語句OLEDBINSERTCOMMAND1CONNECTIONCLOSE/關(guān)閉連接PROVIDERSYBASEASEOLEDBPROVIDER2INITIALCATALOG