sql函數for循環

Ⅰ Oracle PL/sql 局一中的FOR語句： 用for語句求得前100個自然數中偶數和。

mod（x,y）函數的意義是 求x除以y的余數，例如mod（5，2）=1，5除以2餘1，mod（2,2）=0, 2除以2等於1餘數是0，所以答案是0，這個程序塊就是利用這樣的求余的原理來循環判斷1-100之間的偶數，凡是能被2除盡的就是偶數。
代碼中FOR循環100次，i從100開始反向循環，99,98··以此類推到1截止退出循環。
if mod(i,2)=0 --
mod(i,2)=0的意思是i除以2無余數，如果無余數，則說明i是偶數（只有偶數除以2才能除盡）。
then s:=s+i; --
那麼變數s加上這個偶數i變成新的s，進入到下一個循環判斷，若非偶數直接進入下個循環，若為偶數s的值累加，直到循環結束，100以內所有的偶數累加成為最終的變數S。

Ⅱ mysql sql中流程式控制制有for循環嗎

MySQL不支持FOR loops循環。

只有LOOP循環：

[begin_label:] LOOP

statement_list

END LOOP [end_label]

CREATE PROCEDURE doiterate(p1 INT)

BEGIN

label1: LOOP

SET p1 = p1 + 1;

IF p1 < 10 THEN

ITERATE label1;

END IF;

LEAVE label1;

END LOOP label1;

SET @x = p1;

END;

LOOP實現了一個簡單的循環結構，允許重復執行語句列表，該列表由一個或多個語句組成，每個語句以分號（;）分隔符結束。 循環中的語句將重復執行，直到循環終止。 一般情況，通過LEAVE終止循環。 在函數中，也可以使用RETURN，它完全退出函數，也同時終止循環。

(2)sql函數for循環擴展閱讀

mysql流程式控制制結構：

順序結構：程序從上往下依次執行，

分支結構：程序從兩條或多條路徑中選中一條去執行，

循環結構：程序在滿足一定條件的基礎上，重復執行一段代碼。

分支結構

1、if函數

功能：實現簡單的雙分支

語法：

if(表達式1,表達式2，表達式3)

執行順序:

如果表達式1成立，則if函數返回表達式2的值，否則返回表達式3的值

應用:任何地方(在begin end中或外面都可以)

2、case結構

情況1:類似於java中的switch語句，一般用於實現等值判斷

語法：

CASE 變數|表達式|欄位

WHEN 要判斷的值 THEN 返回的值1或語句1;

WHEN 要判斷的值 THEN 返回的值2或語句2;

...

ELSE 要返回的值n或語句n;

END CASE;

情況2:類似於java中的多重IF語句，一般用於實現區間判斷

語法；

CASE

WHEN 要判斷的條件1 THEN 返回的值1或語句1;

WHEN 要判斷的條件2 THEN 返回的值2或語句2;

...

ELSE 要返回的值n或語句n;

END CASE;

Ⅲ SQL中合並多條記錄中某一個欄位

創建表

createtabletdm01
(da01varchar(10))

insertintotdm01values('001')
insertintotdm01values('002')
insertintotdm01values('003')
insertintotdm01values('004')
insertintotdm01values('005')

執行

selectdistinctda01=
stuff((select''+da01fromtdm01twhereda01=t.da01forxmlpath('')),1,1,'')
fromtdm01

截圖

Ⅳ sql server 里有循環語句嗎 沒有請看描述

如何利用connection對象連接數據源？

用一個connnection 對象，只要指定一個connection字元串，目的是用來指定你想要聯結的數據源，然後調用open方法來建立鏈接。

通過connection string提供的信息用OPEN方法可以非常輕松的建立與數據的連接。如果你決定用connection對象進行工作，那麼你可以用它的STATE屬性。如果connection對象被打開了那麼它的返回值為adstateopen,如果不是它的返回值為adstateclosed.下面的例子是利用odbc建立與SQL的連接。

Sub ConnectionExample1()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
' 用ODBC打開連接.
cnn.Open "Pubs", "sa", ""
' 檢查是否完成連接
If cnn.State = adStateOpen Then
MsgBox "Welcome to Pubs!"
Else
MsgBox "Sorry. No Pubs today."
End If
關閉connection對象
cnn.Close
End Sub
如果你只需要連接一個數據源。下面的代碼要比上面的簡單。作為選擇，你可以創建一個connection對象，在調用open方法前你可以先設置ConnectionString屬性。這種方法容許你連接一個數據源後再重新用這個對象再連接另一個數據源。
Sub ConnectionExample2()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
' 用ODBC DSN 建立連接
cnn.ConnectionString = "DSN=Pubs;UID=sa;PWD=;"
cnn.Open
' 檢查是否與數據源建立了連接.
If cnn.State = adStateOpen Then
MsgBox "Welcome to Pubs!"
Else
MsgBox "Sorry. No Pubs today."
End If
'關閉connection對象
cnn.Close
End Sub
在你對CONNECTION對象建立連接前，你可以設置它的其它屬性。例如，你可以設置連接超時。

Sub ConnectionExample3()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
' 設置CONNECTION屬性
cnn.ConnectionString = "DSN=Pubs;UID=sa;PWD=;"
cnn.ConnectionTimeout = 30
' 打開connection 對象
cnn.Open
' 檢查是否已經連接上數據源
If cnn.State = adStateOpen Then
MsgBox "Welcome to Pubs!"
Else
MsgBox "Sorry. No Pubs today."
End If
' 關閉connection對象
cnn.Close
End Sub
ConnectionString屬性的語法結構假定數據源已經被建立或利用系統管理員的身份使用ODBC.不依靠存在的odbc數據源變得流行起來。這樣就減輕了安裝的負擔。下面的例子是一個連接SQL SERVER的可選擇性的方法，僅依靠本身存在的odbc driver

. Sub ConnectionExample4()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
'利用引用ODBC DRIVER打開CONNECTION對象
cnn.ConnectionString = "driver={SQL Server};" & _
"server=rgreennt;uid=sa;pwd=;database=pubs"
cnn.Open
' Find out if the attempt to connect worked.
'檢查是否已經建立連接
If cnn.State = adStateOpen Then
MsgBox "Welcome to Pubs!"
Else
MsgBox "Sorry. No Pubs today."
End If
' 關閉CONNECTION對象
cnn.Close
End Sub
現在ODBC DRIVER 有更廣的變化，你可以用ADO和數據源對話。不久將會有更的的OLE DB提供者與數據源建立連接。The Microsoft® OLE DB Provider for ODBC是當前ADO默認的提供者。你能用不同的提供者設置CONNECTION對象的provider屬性。

Sub ConnectionExample5()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
'設置PROVIDER屬性利用OLE DB Provider for ODBC
cnn.Provider = "MSDASQL"
'用ODBC DSN打開CONNECTION對象
cnn.ConnectionString = "driver={SQL Server};" & _
"server=rgreennt;uid=sa;pwd=;database=pubs"
cnn.Open

'檢查是否連接上數據源
If cnn.State = adStateOpen Then
MsgBox "Welcome to Pubs!"
Else
MsgBox "Sorry. No Pubs today."
End If

'關閉CONNECTION對象
cnn.Close

End Sub
上面的代碼設置PROVIDER屬性不是必須因為ADO的默認提供者就是OLE DB PROVIDER FOR ODBC.這里只是認你知道當你用其它的OLE DB PROVIDERS時如何設置。

我如何用CONNECTION對象執行COMMAND?

CONNNETION的EXECUTE方法用來發送一個COMMAND(一個SQL指令或其它的文本信息)到數據源。如果在SQL指令中要求返回幾行記錄集，一個RECORDSET對象將會被自動的建立。

Sub ConnectionExample6()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
' 引用 ODBC driver 建立連接.
cnn.ConnectionString = "driver={SQL Server};" & _
"server=rgreennt;uid=sa;pwd=;database=pubs"
cnn.Open
' 執行SQL 語句創立一個RECORDSET對象.
Set rs = cnn.Execute("Select * From authors")
' 顯示第一個 author.
MsgBox rs("au_fname") & " " & rs("au_lname")
' 斷開連接
rs.Close
End Sub
記住用EXECUTE返回的RECORDSET是只讀的，並且是僅向前游標。如果你需要用RECORDSET物件的更多函數,你首先要創建RECORDSET物件並設置想要設置的屬性然後用OPEN方法打開它來執行查詢和返回想要得到的游標類型.

在下面的例子中,COMMAND物件執行刪除指令,由於沒有數據集需要返回,你不需要額外的用RECORDSET物件.刪除了多少行數據?你可以通過RECORDSAFFECTED參數知道它.

Sub ConnectionExample7()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
'引用ODBC DRIVER建立連接
cnn.ConnectionString = "driver={SQL Server};" & _
"server=rgreennt;uid=sa;pwd=;database=pubs"
cnn.Open
'向數據源發送刪除指令
cnn.Execute ("Delete From authors Where au_id = '011-01-0111'")
' 檢查有多少行數據被刪除
Set rs = cnn.Execute("Select @@rowcount")
' 顯示第一個欄位
MsgBox rs(0) & " rows deleted"
'關閉連接
rs.Close
End Sub
下面的例子,這個COMMAND通過指定的存儲過程的名字運行數據源的存儲過程.由於需要返回數據，所以你必需建立RECORDSET物件。

Sub ConnectionExample8()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
' 引用ODBC DRIVER來建立連接
cnn.ConnectionString = "driver={SQL Server};" & _
"server=rgreennt;uid=sa;pwd=;database=pubs"
cnn.Open
' 建立RECORDSET對象來運行存儲過程
Set rs = cnn.Execute("Exec byroyalty 50")
' 通過循環來顯示AUTHOR的ID
Do While Not rs.EOF
MsgBox rs("au_id")
rs.MoveNext
Loop
' 斷開連接
rs.Close
End Sub