《VB2008从入门到精通(PDF格式英文版)》第181章

Dim　cmd　As　IDbmand　=　_　
New　Sqlmand（〃INSERT　INTO　draws　（draw_date；　first_number；　second_number；　〃　_　
&　〃third_number；　fourth_number；　〃　_　
&　〃fifth_number；　sixth_number；　bonus）　〃　_　
&　〃VALUES　（@pDrawDate；　@pFirstNumber；　@pSecondNumber；　〃　_　
&　〃@pThirdNumber；　@pFourthNumber；　@pFifthNumber；　@pSixthNumber；　@pBonus）〃）　
cmd。Connection　=　connection　
Dim　paramDate　As　IDbDataParameter　=　New　SqlParameter（）　
paramDate。ParameterName　=　〃@pDrawDate〃　
paramDate。DbType　=　System。Data。DbType。DateTime　
paramDate。Size　=　8　
paramDate。SourceColumn　=　〃draw_date〃　
paramDate。Value　=　DateTime。Now　
cmd。Parameters。Add（paramDate）　
Dim　param　As　IDbDataParameter　=　New　SqlParameter（）　
param。ParameterName　=　〃@pFirstNumber〃　
param。DbType　=　System。Data。DbType。Int32　
param。Size　=　4　
param。SourceColumn　=　〃first_number〃　
param。Value　=　1　
cmd。Parameters。Add（param）　
。　。　。　
param　=　New　SqlParameter（）　
param。ParameterName　=　〃@pBonus〃　
param。DbType　=　System。Data。DbType。Int32　
param。Size　=　4　
param。SourceColumn　=　〃bonus〃　
param。Value　=　1　
cmd。Parameters。Add（param）　
Dim　retval　As　Integer　=　cmd。ExecuteNonQuery（）　
Console。WriteLine（〃retval　（〃　&　retval　&　〃）〃）　
connection。Close（）　
To　execute　a　mand；　you　need　to　instantiate　a　class　that　implements　the IDbmand
interface；　where　the　constructor　parameter　is　the　SQL　statement　that　you　want　to　execute。　The
SQL　statement　contains　SQL　parameters。　How　a　SQL　parameter　is　defined　often　depends　on
the　ADO　implementation。　The　mand　is　associated　with　the　database　connection　using
the　cmd。Connection　property。　
Each　parameter；　regardless　of　the　database　driver　used；　is　of　type IDataParameter　or
IDbDataParameter　（which　implements　IDataParameter）。　The　type　associated　with　IDbDataParameter
is　SqlParameter　in　this　case；　because　we　are　using　SQL　Server。　
…………………………………………………………Page　406……………………………………………………………
384 CH　AP　T　E　R 1　4 ■ L　E　A　R　N　I　N　G A　B　OU　T R　E　L　A　TI　O　N　AL DA　TA　B　AS　E D　AT　A　
The　properties　of　IDbDataParameter　are　as　follows：　
o ParameterName：　Specifies　the　name　of　the　parameter　and　must　be　prefixed　with　an　at　sign
（@）　character。　
o DbType：　Specifies　the　type　of　the　parameter。　
o Size：　Specifies　the　size　of　the　parameter　（in　bytes）。　
o SourceColumn：　Specifies　in　which　column　the　parameter　will　be　stored。
o Value：　Specifies　the　value　for　the　parameter。　
■Note As　a　general　rule　of　thumb；　stick　to　using　and　manipulating　the　standard　ADO　interfaces；　rather
than　the　types　specific　to　the　ADO　driver。　
The　example　shows　code　that　you　would　write　when　you　want　to　explicitly　define　the
attributes　of　every　parameter。　This　was　to　allow　you　to　see　what　is　happening　when　parameters
are　converted　and　stored　in　a　table。　A　simpler　notation　is　as　follows：　
Dim　connection　As　IDbConnection　=　_　
New　SqlConnection（DatabaseConsoleEx。My。Settings。Default。lotteryConnectionString）　
connection。Open（）　
Dim　cmd　As　IDbmand　=　New　Sqlmand（〃INSERT　INTO　draws　（draw_date；　〃　_　
&　〃first_number；　second_number；　third_number；　fourth_number；　〃　_　
&　〃fifth_number；　sixth_number；　bonus）　VALUES　（@pDrawDate；　〃　_　
&　〃@pFirstNumber；　@pSecondNumber；　@pThirdNumber；〃　_　
&　〃@pFourthNumber；@pFifthNumber；@pSixthNumber；@pBonus）〃）　
cmd。Connection　=　connection　
cmd。Parameters。Add（New　SqlParameter（〃@pDrawDate〃；　DateTime。Now））　
cmd。Parameters。Add（New　SqlParameter（〃@pFirstNumber〃；　10））　
cmd。Parameters。Add（New　SqlParameter（〃@pSecondNumber〃；　1））　
cmd。Parameters。Add（New　SqlParameter（〃@pThirdNumber〃；　30））　
cmd。Parameters。Add（New　SqlParameter（〃@pFourthNumber〃；　19））　
cmd。Parameters。Add（New　SqlParameter（〃@pFifthNumber〃；　2））　
cmd。Parameters。Add（New　SqlParameter（〃@pSixthNumber〃；　21））　
cmd。Parameters。Add（new　SqlParameter（〃@pBonus〃；　5））　
Once　you　have　defined　the　parameters　and　assigned　them　with　a　value；　the　SQL　query　can
be　executed。　In　the　case　of　a　SQL INSERT　statement；　no　data　will　be　returned；　because　you　are
sending　data　from　the　application　to　the　database。　Thus；　you　will　need　to　execute　the　method
that　does　not　expect　any　return　data；　which　is ExecuteNonQuery（）；　like　this：　
…………………………………………………………Page　407……………………………………………………………
C　HA　P　TE　R 1　4 ■ L　E　AR　N　I　N　G AB　O　U　T R　E　L　AT　IO　N　A　L D　AT　AB　A　SE D　A　TA　385　
Dim　retval　As　Integer　=　cmd。ExecuteNonQuery（）　
Console。WriteLine（〃retval　（〃　&　retval　&　〃）〃）　
ExecuteNonQuery（）　returns　the　number　of　rows　affected　by　the　statement　（which　should　be
1；　because　we’ve　inserted　one　row）。　
Selecting　Data　from　a　Table　
After　your　tables　have　some　data；　you　probably　will　want　to　retrieve　the　data。　To　do　that；　you
use　the　SELECT　statement。　Here　is　the　code　for　viewing　data　in　the　draws　table：　
Dim　connection　As　IDbConnection　=　_　
New　SqlConnection（DatabaseConsoleEx。My。Settings。Default。lotteryConnectionString）　
connection。Open（）　
Dim　cmd　As　IDbmand　=　New　Sqlmand（〃SELECT　*　FROM　draws〃）　
cmd。Connection　=　connection　
Dim　reader　As　IDataReader　=　cmd。ExecuteReader（）　
While　reader。Read（）　
Console。WriteLine（〃（〃　&　reader。GetDateTime（0）。ToString（）　&　〃）　〃　_　
&　reader。GetInt32（1））　
End　While　
reader。Close（）　
connection。Close（）　
To　select　data；　the　steps　are　to