Insert Into Insert Into Values 1 Insert Into
- Slides: 81
Insert Into 指令：新增資料列 格式一：Insert Into … Values …(1)
Insert Into 指令：新增資料列 格式一：Insert Into … Values …(2) Insert Into 成績單 Values ( 850331, "胡青牛", 90, 88 )
Insert Into 指令：新增資料列 格式二：Insert Into … Select … (2)
利用 Command 物件執行Action Query n 先利用 New Ole. Db. Command() 建立 Command 物件，然後再呼叫 Execute. Non. Query 方法即可。 ' Conn為已連結到資料庫的Connection物件 Cmd = New Ole. Db. Command( SQL指令, Conn ) Cmd. Execute. Non. Query()
利用 Command 物件執行Action Query – 測試程式
Test. Cmd. aspx Part I <%@ Import Namespace="System. Data" %> <%@ Import Namespace="System. Data. Ole. Db" %> <HTML> <BODY bgcolor="#FFFFFF"> <H 2>Test. Cmd. aspx -- Action Query 測試程式<HR></H 2> <Form runat="server"> 資料庫：Sample. mdb<BR> 指 令：<asp: Text. Box runat="server" id="SQL" Size=50 /> <p> <asp: Button runat="server" Text="執行" On. Click="Run. SQL" />
Test. Cmd. aspx Part II <HR>指令執行情況: <asp: Label runat="server" id="Msg" Text="尚未輸入 SQL 指令" Fore. Color="Red" /> </Form> </BODY> </HTML> <script Language="VB" runat="server"> Sub Run. SQL(sender As Object, e As Event. Args) Dim Conn As Ole. Db. Connection Dim Cmd As Ole. Db. Command
Test. Cmd. aspx Part III Dim Provider = "Provider=Microsoft. Jet. OLEDB. 4. 0" Dim Database = "Data Source=" & Server. Map. Path( "Sample. mdb" ) Conn = New Ole. Db. Connection( Provider & "; " & Data. Base ) Conn. Open() On Error Resume Next Cmd = New Ole. Db. Command( SQL. Text, Conn ) Cmd. Execute. Non. Query() If Err. Number <> 0 Then Msg. Text = Err. Description Else Msg. Text = "成功!" End If Conn. Close() End Sub </script>
Insert. aspx Part I %@ Import Namespace="System. Data" %> <%@ Import Namespace="System. Data. Ole. Db" %> <Html> <Body Bg. Color="White"> <H 3>Insert. aspx -- 新增資料到「成績單」資料表<HR></H 3> <Form runat="server"> <Blockquote> 學號: <asp: Text. Box runat="server" id="學號" /> 姓名: <asp: Text. Box runat="server" id="姓名" /> 國文: <asp: Text. Box runat="server" id="國文" /> 英文: <asp: Text. Box runat="server" id="英文" /> 數學: <asp: Text. Box runat="server" id="數學" /><p>
Insert. aspx Part II <asp: Button runat="server" Text="新增" On. Click="Insert. Data" /> </Blockquote> <HR><asp: Label runat="server" id="Msg" Fore. Color="Red" /> </Form> </Body> </Html> <script Language="VB" runat="server"> Sub Insert. Data(sender As Object, e As Event. Args) Dim Conn As Ole. Db. Connection Dim Cmd As Ole. Db. Command Dim Provider = "Provider=Microsoft. Jet. OLEDB. 4. 0" Dim Database = "Data Source=" & Server. Map. Path( "Sample. mdb" ) Conn = New Ole. Db. Connection( Provider & "; " & Data. Base )
Insert. aspx Part III Dim SQL As String SQL = "Insert Into 成績單 (學號, 姓名, 國文, 英文, 數學 ) Values( ? , ? , ? )" Cmd = New Ole. Db. Command( SQL, Conn ) Cmd. Parameters. Add( New Ole. Db. Parameter("學號", Ole. Db. Type. Integer)) Cmd. Parameters. Add( New Ole. Db. Parameter("姓名", Ole. Db. Type. Char, 10)) Cmd. Parameters. Add( New Ole. Db. Parameter("國文", Ole. Db. Type. Small. Int)) Cmd. Parameters. Add( New Ole. Db. Parameter("英文", Ole. Db. Type. Small. Int)) Cmd. Parameters. Add( New Ole. Db. Parameter(""數學", Ole. Db. Type. Small. Int))
Insert. aspx Part IV Cmd. Parameters("學號"). Value Cmd. Parameters("姓名"). Value Cmd. Parameters("國文"). Value Cmd. Parameters("英文"). Value Cmd. Parameters("數學"). Value Cmd. Execute. Non. Query() If Err. Number <> 0 Then Msg. Text = Err. Description Else Msg. Text = "資料新增成功!" End If Conn. Close() End Sub </script> = = = Val(學號. Text) 姓名. Text Val(國文. Text) Val(英文. Text) Val(數學. Text)
設定參數型別的 Cmd. Parameters. Add() 敘述 (2) n 為了建立 5 個參數並且將其資料型別對 應到上表的型別，所撰寫的敘述如下： Cmd. Parameters. Add( New Ole. Db. Parameter("學號", Ole. Db. Type. Integer)) Cmd. Parameters. Add( New Ole. Db. Parameter("姓名", Ole. Db. Type. Char, 10)) Cmd. Parameters. Add( New Ole. Db. Parameter("國文", Ole. Db. Type. Small. Int)) Cmd. Parameters. Add( New Ole. Db. Parameter("英文", Ole. Db. Type. Small. Int)) Cmd. Parameters. Add( New Ole. Db. Parameter("數學", Ole. Db. Type. Small. Int))
設定參數值的 Cmd. Parameters(). Value 敘述 Cmd. Parameters("學號"). Value = Val(學號. Text) Cmd. Parameters("姓名"). Value = 姓名. Text Cmd. Parameters("國文"). Value = Val(國文. Text) Cmd. Parameters("英文"). Value = Val(英文. Text) Cmd. Parameters("數學"). Value = Val(數學. Text) n Text. Box 所讀取的內容為字串資料，要呼 叫 Val 函數將其轉換成數值資料。
含有參數的 SQL 指令 -- 具名的參數 Cmd. Parameters. Add( New Ole. Db. Parameter("@學號", Ole. Db. Type. Integer)) Cmd. Parameters. Add( New Ole. Db. Parameter("@姓名", Ole. Db. Type. Char, 10)) Cmd. Parameters. Add( New Ole. Db. Parameter("@國文", Ole. Db. Type. Small. Int)) Cmd. Parameters. Add( New Ole. Db. Parameter("@英文", Ole. Db. Type. Small. Int)) Cmd. Parameters. Add( New Ole. Db. Parameter("@數學", Ole. Db. Type. Small. Int)) Cmd. Parameters("@學號"). Value = Val(學號. Text) Cmd. Parameters("@姓名"). Value = 姓名. Text Cmd. Parameters("@國文"). Value = Val(國文. Text) Cmd. Parameters("@英文"). Value = Val(英文. Text) Cmd. Parameters("@數學"). Value = Val(數學. Text)
Update 01. aspx -- 基本架構
Data. Grid 的安插 <asp: Data. Grid runat="server" id="My. Grid" Header. Style-Back. Color="#AAAADD" Alternating. Item. Style-Back. Color="#FFFFC 0" Border. Color="Black" Cell. Padding="2" Cell. Spacing="0" On. Edit. Command="Edit. Data" On. Update. Command="Update. Data" On. Cancel. Command="Cancel. Edit" Data. Key. Field="學號"> <Columns> <asp: Edit. Command. Column Header. Text="修改" Item. Style-Wrap="False" Edit. Text="編輯" Update. Text="更新" Cancel. Text="取消" /> </Columns> </asp: Data. Grid>
Edit. Data 事件程序的撰寫 Sub Edit. Data(sender As Object, e As Data. Grid. Command. Event. Args) My. Grid. Edit. Item. Index = e. Item. Index Open. Data. Base_And_Bind. To. Data. Grid() End Sub
Cancel. Edit 事件程序的撰寫 Sub Cancel. Edit(sender As Object, e As Data. Grid. Command. Event. Args) My. Grid. Edit. Item. Index = -1 Open. Data. Base_And_Bind. To. Data. Grid() End Sub
Update. Data 事件程序的撰寫 Part I Sub Update. Data(sender As Object, e As Data. Grid. Command. Event. Args) Dim TB(5) As Text. Box TB(1) = e. Item. Cells(1). Controls(0) TB(2) = e. Item. Cells(2). Controls(0) TB(3) = e. Item. Cells(3). Controls(0) TB(4) = e. Item. Cells(4). Controls(0) TB(5) = e. Item. Cells(5). Controls(0) ' ' ' 學號 姓名 國文 英文 數學 Text. Box
Update. Data 事件程序的撰寫 Part II Dim Msg As String = "欲更新的資料: <blockquote>" Msg &= "Data. Key = " & My. Grid. Data. Keys(e. Item. Index) Msg &= " Cell(1) = " & TB(1). Text Msg &= " Cell(2) = " & TB(2). Text Msg &= " Cell(3) = " & TB(3). Text Msg &= " Cell(4) = " & TB(4). Text Msg &= " Cell(5) = " & TB(5). Text & "</blockquote>" Response. Write( Msg ) My. Grid. Edit. Item. Index = -1 Open. Data. Base_And_Bind. To. Data. Grid() End Sub
程式最重要的關鍵(2) Dim TB(5) As Text. Box ' 宣告Text. Box ' 將Data. Grid中的Text. Box指定給我們宣告的Text. Box TB(1) = e. Item. Cells(1). Controls(0) ' 學號 Text. Box TB(2) = e. Item. Cells(2). Controls(0) ' 姓名 Text. Box TB(3) = e. Item. Cells(3). Controls(0) ' 國文 Text. Box TB(4) = e. Item. Cells(4). Controls(0) ' 英文 Text. Box TB(5) = e. Item. Cells(5). Controls(0) ' 數學 Text. Box ' 接下來分別利用TB(1). Text、TB(2). Text、TB(3). Text、TB(4). Text ' 及TB(5). Text讀取Data. Grid等5個Text. Box的內容。
Update 02. aspx – 將修改的資料寫入資料庫 Part I #01 Sub Update. Data(sender As Object, e As Data. Grid. Command. Event. Args) #02 Dim Conn As Ole. Db. Connection #03 Dim Cmd As Ole. Db. Command #04 Dim SQL As String #05 #06 Dim Provider = "Provider=Microsoft. Jet. OLEDB. 4. 0" #07 Dim Database = "Data Source=" & Server. Map. Path( "Sample. mdb" ) #08 Conn = New Ole. Db. Connection( Provider & "; " & Data. Base ) #09 Conn. Open() #10 #11 SQL = "Update 成績單 Set 學號=@學號, 姓名=@姓名, 國文=@國文, 英文=@英 文, 數學=@數學 Where 學號=@Key" #12 #13 Cmd = New Ole. Db. Command( SQL, Conn )
Update 02. aspx – 將修改的資料寫入資料庫 Part II #14 Cmd. Parameters. Add( New Ole. Db. Parameter("@學號", Ole. Db. Type. Integer)) #15 Cmd. Parameters. Add( New Ole. Db. Parameter("@姓名", Ole. Db. Type. Char, 10)) #16 Cmd. Parameters. Add( New Ole. Db. Parameter("@國文", Ole. Db. Type. Small. Int)) #17 Cmd. Parameters. Add( New Ole. Db. Parameter("@英文", Ole. Db. Type. Small. Int)) #18 Cmd. Parameters. Add( New Ole. Db. Parameter("@數學", Ole. Db. Type. Small. Int)) #19 Cmd. Parameters. Add( New Ole. Db. Parameter("@Key", Ole. Db. Type. Integer)) #20 #21 Dim TB(5) As Text. Box #22 TB(1) = e. Item. Cells(1). Controls(0) ' 學號 Text. Box #23 TB(2) = e. Item. Cells(2). Controls(0) ' 姓名 Text. Box #24 TB(3) = e. Item. Cells(3). Controls(0) ' 國文 Text. Box #25 TB(4) = e. Item. Cells(4). Controls(0) ' 英文 Text. Box #26 TB(5) = e. Item. Cells(5). Controls(0) ' 數學 Text. Box #27
Update 02. aspx – 將修改的資料寫入資料庫 Part III #28 Cmd. Parameters("@Key"). Value = My. Grid. Data. Keys(e. Item. Index) #29 Cmd. Parameters("@學號"). Value = Val(TB(1). Text) #30 Cmd. Parameters("@姓名"). Value = TB(2). Text #31 Cmd. Parameters("@國文"). Value = Val(TB(3). Text) #32 Cmd. Parameters("@英文"). Value = Val(TB(4). Text) #33 Cmd. Parameters("@數學"). Value = Val(TB(5). Text) #34 Cmd. Execute. Non. Query() #35 #36 Conn. Close() #37 #38 My. Grid. Edit. Item. Index = -1 #39 Open. Data. Base_And_Bind. To. Data. Grid() #40 End Sub
Data. Grid 所做的修改 Part I <asp: Data. Grid runat="server" id="My. Grid" Header. Style-Back. Color="#AAAADD" Alternating. Item. Style-Back. Color="#FFFFC 0" Border. Color="Black" Cell. Padding="2" Cell. Spacing="0" On. Edit. Command="Edit. Data" On. Update. Command="Update. Data" On. Cancel. Command="Cancel. Edit" Data. Key. Field="學號" Auto. Generate. Columns="False" >
Data. Grid 所做的修改 Part II <Columns> <asp: Edit. Command. Column Header. Text="修改" Item. Style-Wrap="False" Edit. Text="編輯" Update. Text="更新" Cancel. Text="取消" /> <asp: Bound. Column Data. Field="學號" Header. Text="學號" Read. Only="True" /> <asp: Bound. Column Data. Field="姓名" Header. Text="姓名"/> <asp: Bound. Column Data. Field="國文" Header. Text="國文"/> <asp: Bound. Column Data. Field="英文" Header. Text="英文"/> <asp: Bound. Column Data. Field="數學" Header. Text="數學"/> </Columns> </asp: Data. Grid>
程式所做的修改 n 更新資料的SQL指令： SQL = "Update 成績單 Set 姓名=@姓名, 國文=@國 文, 英文=@英文, 數學=@數學 Where 學號=@Key" n 「@學號」參數的相關敘述均需刪除： Cmd. Parameters. Add( New Ole. Db. Parameter("@學號", Ole. Db. Type. Integer)) TB(1) = e. Item. Cells(1). Controls(0) ' 學號 Text. Box Cmd. Parameters("@學號"). Value = Val(TB(1). Text)
Update 04. aspx – 設定 List. Box 及 Check. Box 欄位
Data. Grid 的安插 Edit. Command. Column 欄位。 n Bound. Column 欄位 。 n Hyper. Link. Column 欄位。 n Template. Column 欄位。 n
Template. Column 欄位 安插之語法及結構 (1) <asp: Template. Column Header. Text="抬頭"> <Item. Template> 在此安插顯示資料的Server控制元件 </Item. Template> <Edit. Item. Template> 在此安插編輯資料的Server控制元件 </asp: Template. Column>
Template. Column 欄位 安插之語法及結構 (2) n 例如： <asp: Template. Column Header. Text="姓名"> <Item. Template> <asp: Label runat="server" Text='<%# Container. Data. Item("姓名") %>'/> </Item. Template> <Edit. Item. Template> <asp: Text. Box runat="server" id="姓名" Size=10 Text='<%# Container. Data. Item("姓名") %>'/> </Edit. Item. Template> </asp: Template. Column>
Update 04. aspx 網頁的欄位(2) 已婚欄位 <asp: Template. Column Header. Text="已婚"> <Item. Template> <asp: Label runat="server" Text='<%# Container. Data. Item("已婚") %>'/> </Item. Template> <Edit. Item. Template> <asp: Check. Box runat="server" id="已婚" Checked='<%# Container. Data. Item("已婚") %>'/> </Edit. Item. Template> </asp: Template. Column>
Update 04. aspx 網頁的欄位(3) 性別欄位 <Edit. Item. Template> <asp: List. Box runat="server" id="性別" Rows=1 Selected. Index='<%# 性別編號(Container. Data. Item("性別")) %>'> <asp: List. Item>男</asp: List. Item> <asp: List. Item>女</asp: List. Item> </asp: List. Box> </Edit. Item. Template>
Update 04. aspx 網頁的欄位(4) 血型欄位 <Edit. Item. Template> <asp: List. Box runat="server" id="血型" Rows=1 Selected. Index='<%# 血型編號(Container. Data. Item("血型")) %>'> <asp: List. Item>A</asp: List. Item> <asp: List. Item>B</asp: List. Item> <asp: List. Item>O</asp: List. Item> <asp: List. Item>AB</asp: List. Item> </asp: List. Box> </Edit. Item. Template>
Update 04. aspx 網頁的欄位(5) Function 血型編號( 血型 As String ) As Integer If 血型 = "A" Then Return 0 If 血型 = "B" Then Return 1 If 血型 = "O" Then Return 2 If 血型 = "AB" Then Return 3 End Function
Update 04. aspx 網頁的欄位(6) Function 性別編號( 性別 As String ) As Integer If 性別 = "男" Then Return 0 If 性別 = "女" Then Return 1 End Function
Update 04. aspx 資料的更新(1) Dim Text姓名 As Text. Box Text姓名 = e. Item. Find. Control("姓名") Cmd. Parameters("@姓名"). Value = Text姓名. Text Dim List性別 As List. Box List性別 = e. Item. Find. Control("性別") Cmd. Parameters("@性別"). Value = List性別. Selected. Item. Text
Update 04. aspx 資料的更新 (2) Dim List血型 As List. Box List血型 = e. Item. Find. Control("血型") Cmd. Parameters("@血型"). Value = List血型. Selected. Item. Text Dim Check已婚 As Check. Box Check已婚 = e. Item. Find. Control("已婚") Cmd. Parameters("@已婚"). Value = Check已婚. Checked
10 -3 Data. Set 物件與 XML 的讀寫
XML 格式的資料庫檔案 (1) n Score. xml Part I <? xml version="1. 0" standalone="yes"? > <New. Data. Set> <xs: schema id="New. Data. Set" xmlns="" xmlns: xs="http: //www. w 3. org/2001/XMLSchema" xmlns: msdata="urn: schemas-microsoft-com: xml-msdata"> <xs: element name="New. Data. Set" msdata: Is. Data. Set="true" msdata: Locale="zh-TW"> <xs: complex. Type> <xs: choice max. Occurs="unbounded"> <xs: element name="成績單"> <xs: complex. Type> <xs: sequence>
XML 格式的資料庫檔案 (2) n Score. xml Part II <xs: element name="學號" type="xs: int" min. Occurs="0" /> <xs: element name="姓名" type="xs: string" min. Occurs="0" /> <xs: element name="國文" type="xs: short" min. Occurs="0" /> <xs: element name="英文" type="xs: short" min. Occurs="0" /> <xs: element name="數學" type="xs: short" min. Occurs="0" /> </xs: sequence> </xs: complex. Type> </xs: element> </xs: choice> </xs: complex. Type> </xs: element> </xs: schema>
Xml. Read. aspx Part I <%@ Import Namespace="System. Data" %> <script Language="VB" runat="server"> Sub Page_Load(sender As Object, e As Event. Args) Dim Ds As New Data. Set Ds. Read. Xml( Server. Map. Path("Score. xml") ) My. Grid. Data. Source = Ds. Tables( "成績單" ). Default. View My. Grid. Data. Bind() End Sub </script>
Xml. Read. aspx Part II <Html> <Body Bg. Color="White"> <H 3>Xml. Read. aspx -- 讀取 Score. xml 成為「成績單」資料表 <HR></H 3> <Center> <Form runat="server"> <asp: Data. Grid runat="server" id="My. Grid" Header. Style-Back. Color="#AAAADD" Alternating. Item. Style-Back. Color="#FFFFC 0" Border. Color="Black" Cell. Padding="2" Cell. Spacing="0" /> </Form> <p></Center> <HR></Body> </Html>
Xml. Write. aspx Part I <%@ Import Namespace="System. Data" %> <%@ Import Namespace="System. Data. Ole. Db" %> <script Language="VB" runat="server"> Sub Page_Load(sender As Object, e As Event. Args) Dim Conn As Ole. Db. Connection Dim Adpt As Ole. Db. Data. Adapter Dim Ds As Data. Set Dim Provider = "Provider=Microsoft. Jet. OLEDB. 4. 0" Dim Database = "Data Source=" & Server. Map. Path( "Sample. mdb" ) Conn = New Ole. Db. Connection( Provider & "; " & Data. Base ) Conn. Open()
PXml. Write. aspx Part II Dim SQL = "Select * From 成績單" Adpt = New Ole. Db. Data. Adapter( SQL, Conn ) Ds = New Dataset() Adpt. Fill(Ds, "成績單") ' 將 Data. Set 物件的內容寫到 Score 2. xml 檔案 Ds. Write. Xml( Server. Map. Path("Score 2. xml"), Xml. Write. Mode. Write. Schema ) Conn. Close() Response. Write( "已經將「成績單」資料表寫到 Score 2. xml!" ) End Sub </script>
10 -4 存取 SQL Server 資料庫
轉換提供的資料表 -- 情況一 n 有安裝附屬於. NET Framework SDK 的 SQL Server Desktop Engine。
轉換提供的資料表--情況二 (1) n 安裝有完整的 SQL Server： 開啟 ch 10/Sql 目錄，然後逐一修改每 一個. aspx 檔案的以下敘述： Conn = New Sql. Connection("server=(local)Net. SDK; " & _ "database=pubs; " & _ "Trusted_Connection=Yes")
從 Ole. Db 到 Sql. Client (1) n 將 <%@ Import Namespace=“System. Data. Ole. Db” %> 標示改成： <%@ Import Namespace=“System. Data. Sql. Client” %>。 也就是說，我們原本使用 Ole. Db 命名空間的物件， 現在要改成用 Sql. Client 命名空間的物件。
從 Ole. Db 到 Sql. Client (2) n 將所有以 Ole. Db 開頭的物件，包含： Ole. Db. Connection Ole. Db. Command Ole. Db. Data. Reader Ole. Db. Data. Adapter … n 改成以 Sql 開頭的物件，如下： Sql. Connection Sql. Command Sql. Data. Reader Sql. Data. Adapter …
從 Ole. Db 到 Sql. Client (3) n 將建立 Connection 物件的敘述： Dim Provider = "Provider=Microsoft. Jet. OLEDB. 4. 0" Dim Database = "Data Source=" & Server. Map. Path( "Sample. mdb" ) Conn = New Ole. Db. Connection( Provider & "; " & Data. Base ) Conn. Open() n 改成： Conn = New Sql. Connection("server=(local)Net. SDK; " & _ "database=pubs; " & _ "Trusted_Connection=Yes") Conn. Open
Route 01. aspx Part I <%@ Import Namespace="System. Data" %> <%@ Import Namespace="System. Data. Sql. Client" %> <script Language="VB" runat="server"> Sub Page_Load(sender As Object, e As Event. Args) ' 相關物件的宣告 Dim Conn As Sql. Connection ' 宣告一個 Connection 物件 Dim Adpt As Sql. Data. Adapter ' 宣告一個 Data. Adapter 物件 Dim Ds As Data. Set ' 宣告一個 Data. Set 物件 ' Connection 物件開啟 Sql Server, pub 資料庫 Conn = New Sql. Connection("server=(local)Net. SDK; " & _ "database=pubs; " & _ "Trusted_Connection=Yes") Conn. Open()
Route 01. aspx Part II ' Data. Adapter 物件開啟「成績單」資料表 Dim SQL = "Select * From 成績單" Adpt = New Sql. Data. Adapter( SQL, Conn ) ' 將 Data. Adapter 物件所開啟的「成績單」資料表存放於 Data. Set 物件中 Ds = New Dataset() Adpt. Fill(Ds, "成績單") ' Data. Grid控制元件顯示「成績單」資料表 My. Grid. Data. Source = Ds. Tables( "成績單" ). Default. View My. Grid. Data. Bind() ' 關閉Sample. mdb資料庫 Conn. Close() End Sub </script>
Route 01. aspx Part III <Html> <Body Bg. Color="White"> <H 3>資料庫存取路徑一: Connection - Data. Adapter - Data. Set - Data. Grid <HR></H 3> <Center> <Form runat="server"> <asp: Data. Grid runat="server" id="My. Grid" Header. Style-Back. Color="#AAAADD" Alternating. Item. Style-Back. Color="#FFFFC 0" Border. Color="Black" Cell. Padding="2" Cell. Spacing="0" /> </Form> <p></Center> <HR></Body> </Html>
含有參數的 SQL 指令 Cmd. Parameters. Add( New Ole. Db. Parameter("@學號", Ole. Db. Type. Integer)) Cmd. Parameters. Add( New Ole. Db. Parameter("@姓名", Ole. Db. Type. Char, 10)) Cmd. Parameters. Add( New Ole. Db. Parameter("@國文", Ole. Db. Type. Small. Int)) Cmd. Parameters. Add( New Ole. Db. Parameter("@英文", Ole. Db. Type. Small. Int)) Cmd. Parameters. Add( New Ole. Db. Parameter("@數學", Ole. Db. Type. Small. Int)) n 改成 Cmd. Parameters. Add( New Sql. Parameter("@學號", Sql. Db. Type. Integer)) Cmd. Parameters. Add( New Sql. Parameter("@姓名", Sql. Db. Type. Char, 10)) Cmd. Parameters. Add( New Sql. Parameter("@國文", Sql. Db. Type. Small. Int)) Cmd. Parameters. Add( New Sql. Parameter("@英文", Sql. Db. Type. Small. Int)) Cmd. Parameters. Add( New Sql. Parameter("@數學", Sql. Db. Type. Small. Int))
欄位填入空白的問題 Function 血型編號( 血型 As String ) As Integer If Trim(血型) = "A" Then Return 0 If Trim(血型) = "B" Then Return 1 If Trim(血型) = "O" Then Return 2 If Trim(血型) = "AB" Then Return 3 End Function
Insert into values
What are the two possible values of bit
Western vs eastern values
Define human values
Machiavellian personality
Terminal values and instrumental values
Powerpoint animation delay more than 60 seconds
Cyanokit package insert
Oracle apex architecture
Insert gas
Frusatex
Type name here
The insert company
Insert title here
Insert periodic table
Generalized projection in dbms
How to leave the world that worships should
Insert support
Quotation marks rules
Insert your text here
Sql insert update delete query
Kuvan package insert
Insert picture here
How to insert an image in oracle apex application
Ofirmev package insert
Copanlisib package insert
The verb to be. insert appropriate present forms
Bluebeam checkmark tool
Insert the sub title of your presentation
Carbide insert identification
ınsert tuşu
Insert partner
Insert logo here
Insert logo here
Name of logo
Patricia trie insert
Pemberian efek teks di insert ada di menu
Audience insert
Pamdl
Presenter insert
Please insert here
Sinkveyn usuli
Ptrhead
Voice brand name
Insert logo here
Penina wants to insert markers
Insert your name here font
Hurricane insert name
Insert clustered column chart
Insert the missing pronoun
Parp inhibitor
Insert text here
Andor insert
Cut away example
Insert your text here
Insert logo here
Insert attachment
Insert gas
Insert pic here
Please insert here
Pectoralis major shoulder extension
Insert company name
Insert your name here
Insert photo here
Vidas hiv duo ultra package insert
Wp-insert
Harmonic progression formula
Imipenem, cilastatin, and relebactam package insert
Amnisure package insert
La instrucción insert exec no se puede anidar
What is the proper code to insert an image named frog.jpg
Insert logo here
Database commit is triggered by
Please insert here
Insert your name
Audience insert
Osu insert key
Kcentra package insert
Insert element in priority queue
Nozzle insert factory
Si te printojme nje dokument
Extreme object insert
