var db = new LinqTest01.DataClasses1DataContext(); var query = db.ExecuteQuery("SELECT [ID], [Name], [Type] FROM [T_Animals]"); foreach (var q in query ) { Console.WriteLine("{0}, {1}, {2}", q.ID, q.Name, q.Type); }
Dim db = New LinqTest02.DataClasses1DataContext()
Dim query = From n In db.T_Animals
Select n
'コンソールに出力
db.Log = Console.Out
For Each q In query
Console.WriteLine("{0}, {1}, {2}", q.ID, q.Name, q.Type)
Next
var db = new LinqTest01.DataClasses1DataContext();
var query = from n in db.T_Animals
select n;
// コンソールに出力
db.Log = Console.Out;
foreach (var q in query )
{
Console.WriteLine("{0}, {1}, {2}", q.ID, q.Name, q.Type);
}
Dim connectionString As String = "Data Source=localhost\MSSQLSERVER;Initial Catalog=TESTDB2;Integrated Security=True" Dim db = New LinqTest02.DataClasses1DataContext(connectionString)
string connectionString = @"Data Source=MOUSEPC\MSSQLSERVER;Initial Catalog=TESTDB2;Integrated Security=True"; var db = new LinqTest01.DataClasses1DataContext(connectionString);
Sub Main()
Dim db = New LinqTest02.DataClasses1DataContext()
Dim query = From n In db.T_Animals
Select n
For Each q In query
Console.WriteLine("{0}, {1}, {2}", q.ID, q.Name, q.Type)
Next
End Sub
1, たま, 猫 2, ピーター, うさぎ 3, トム, 猫 4, お父さん, 犬 5, ふてニャン, 猫 6, プー, くま 7, ファーファ, くま 8, ラスカル, アライグマ 9, サトちゃん, 象 10, チーバくん, 犬 11, パトラッシュ, 犬
static void Main(string[] args)
{
var db = new LinqTest01.DataClasses1DataContext(c_connection);
var query = from n in db.T_Animals
select n;
foreach (var q in query )
{
Console.WriteLine("{0}, {1}, {2}", q.ID, q.Name, q.Type);
}
}
1, たま, 猫 2, ピーター, うさぎ 3, トム, 猫 4, お父さん, 犬 5, ふてニャン, 猫 6, プー, くま 7, ファーファ, くま 8, ラスカル, アライグマ 9, サトちゃん, 象 10, チーバくん, 犬 11, パトラッシュ, 犬
| コントロール | 名前 |
|---|---|
| DataGridView | dgv |
| Button | buttonView |
| Button | buttonOK |
| Button | buttonCancel |
| Button | buttonApply |
| コントロール | 名前 |
|---|---|
| DataGridView | dgv |
| Button | buttonView |
| Button | buttonOK |
| Button | buttonCancel |
| Button | buttonApply |
@echo off REM ----- メニュー表示バッチ・ファイル :TOP echo ***************************************************************** echo * menu * echo * * echo * 1:メモ帳 * echo * 2:ペイント * echo * 3:電卓 * echo * 99:終了 * echo * * echo ***************************************************************** :MENUSTART set USR_INPUT_STR= set /P USR_INPUT_STR="番号を入力してください: " if %USR_INPUT_STR%==1 ( goto EXECUTE_NOTEPAD ) else if %USR_INPUT_STR%==2 ( goto EXECUTE_PAINT ) else if %USR_INPUT_STR%==3 ( goto EXECUTE_CALC ) else if %USR_INPUT_STR%==99 ( goto EXITTRAP ) else ( echo メニューにその番号はありません。 echo. goto MENUSTART ) REM メモ帳の起動 :EXECUTE_NOTEPAD notepad cls goto TOP REM ペイントの起動 :EXECUTE_PAINT mspaint cls goto TOP REM 電卓の起動 :EXECUTE_CALC calc cls goto TOP :EXITTRAP echo. echo 終了します。 pause
| コントロール | 名前 |
|---|---|
| DataGridView | dgv |
| Button | buttonView |
private void buttonView_Click(object sender, EventArgs e)
{
string ConnectionString = @"Data Source=localhost\MSSQLSERVER;Initial Catalog=TESTDB;Integrated Security=True";
var cnn = new SqlConnection(ConnectionString);
cnn.Open();
// データアダプタオブジェクトの作成
var adapter = new SqlDataAdapter("SELECT [ID], [Name], [Type] FROM [T_Animals]", cnn);
// データセットオブジェクトの作成
var ds = new DataSet();
// 抽出したデータをデータセットに格納
adapter.Fill(ds);
// DataGridViewのデータソースにデータセットのテーブルをバインド
this.dgv.DataSource = ds.Tables[0];
}
Private Sub buttonView_Click(sender As Object, e As EventArgs) Handles buttonView.Click
Dim ConnectionString As String = "Data Source=localhost\MSSQLSERVER;Initial Catalog=TESTDB;Integrated Security=True"
Dim cnn = New SqlConnection(ConnectionString)
cnn.Open()
'データアダプタオブジェクトの作成
Dim adapter = New SqlDataAdapter("SELECT [ID], [Name], [Type] FROM [T_Animals]", cnn)
'データセットオブジェクトの作成
Dim ds = New DataSet()
'抽出したデータをデータセットに格納
adapter.Fill(ds)
'DataGridViewのデータソースにデータセットのテーブルをバインド
Me.dgv.DataSource = ds.Tables(0)
End Sub
| ID | Name | Type |
|---|---|---|
| 1 | たま | 猫 |
| 2 | ピーター | うさぎ |
| 3 | トム | 猫 |
| 4 | お父さん | 犬 |
| 5 | ふてニャン | 猫 |
| 6 | プー | くま |
| 7 | ファーファ | くま |
| 8 | ラスカル | アライグマ |
| 9 | サトちゃん | 象 |
| 10 | チーバくん | 犬 |
| 11 | パトラッシュ | 犬 |
USE [TESTDB] GO CREATE PROCEDURE [dbo].[usp_get_output] @ID int, @Name nvarchar(50) OUTPUT AS BEGIN SET NOCOUNT ON; SET @Name = (SELECT [Name] FROM [dbo].[T_Animals] WHERE [ID] = @ID) RETURN 0 END
string ConnectionString = string.Empty;
ConnectionString = @"Data Source=localhost\MSSQLSERVER;Initial Catalog=TESTDB;Integrated Security=True";
var cnn = new SqlConnection(ConnectionString);
cnn.Open();
var cmd = new SqlCommand();
cmd.Connection = cnn;
// コマンド文字列の解釈方法を指定
cmd.CommandType = System.Data.CommandType.StoredProcedure;
// INPUT
int inputId = 5;
// データソースで実行するストアドプロシージャを指定
cmd.CommandText = "[usp_get_output]";
cmd.Parameters.Clear();
cmd.Parameters.Add("@ID", System.Data.SqlDbType.Int).Value = inputId;
// OUTPUT
cmd.Parameters.Add("@Name", System.Data.SqlDbType.NVarChar, 50);
cmd.Parameters["@Name"].Direction = System.Data.ParameterDirection.Output;
// RETURN
cmd.Parameters.Add("ReturnValue", System.Data.SqlDbType.Int);
cmd.Parameters["ReturnValue"].Direction = System.Data.ParameterDirection.ReturnValue;
cmd.ExecuteNonQuery();
Console.WriteLine("インプット：" + inputId.ToString());
string name = cmd.Parameters["@Name"].Value.ToString();
Console.WriteLine("アウトプット：" + name);
int rtn = (int)cmd.Parameters["ReturnValue"].Value;
Console.WriteLine("戻り値：" + rtn.ToString());
cmd.Dispose();
cnn.Close();
Dim ConnectionString As String = String.Empty
ConnectionString = "Data Source=localhost\MSSQLSERVER;Initial Catalog=TESTDB;Integrated Security=True"
Dim cnn = New SqlConnection(ConnectionString)
cnn.Open()
Dim cmd = New SqlCommand()
cmd.Connection = cnn
cmd.CommandType = System.Data.CommandType.StoredProcedure
'INPUT
Dim inputId As Integer = 5
'データソースで実行するストアドプロシージャを指定
cmd.CommandText = "[usp_get_output]"
cmd.Parameters.Clear()
cmd.Parameters.Add("@ID", System.Data.SqlDbType.Int).Value = inputId
'OUTPUT
cmd.Parameters.Add("@Name", System.Data.SqlDbType.NVarChar, 50)
cmd.Parameters("@Name").Direction = System.Data.ParameterDirection.Output
'RETURN
cmd.Parameters.Add("ReturnValue", System.Data.SqlDbType.Int)
cmd.Parameters("ReturnValue").Direction = System.Data.ParameterDirection.ReturnValue
cmd.ExecuteNonQuery()
Console.WriteLine("インプット：" & inputId.ToString())
Dim name As String = cmd.Parameters("@Name").Value.ToString()
Console.WriteLine("アウトプット：" & name)
Dim rtn As Integer = DirectCast(cmd.Parameters("ReturnValue").Value, Integer)
Console.WriteLine("戻り値：" + rtn.ToString())
cmd.Dispose()
cnn.Close()
インプット：5 アウトプット：ふてニャン 戻り値：0
| ID | Name | Type |
|---|---|---|
| 1 | たま | 猫 |
| 2 | ピーター | うさぎ |
| 3 | トム | 猫 |
| 4 | お父さん | 犬 |
| 5 | ふてニャン | 猫 |
| 6 | プー | くま |
| 7 | ファーファ | くま |
| 8 | ラスカル | アライグマ |
| 9 | サトちゃん | 象 |
| 10 | チーバくん | 犬 |
| 11 | パトラッシュ | 犬 |
USE [TESTDB] GO CREATE PROCEDURE [dbo].[usp_ins_animals_data] @ID int, @Name nvarchar(50), @Type nvarchar(50) AS BEGIN SET NOCOUNT ON; INSERT INTO [dbo].[T_Animals] ([ID] ,[Name] ,[Type]) VALUES (@ID ,@Name ,@Type) END
string ConnectionString = string.Empty;
ConnectionString = @"Data Source=localhost\MSSQLSERVER;Initial Catalog=TESTDB;Integrated Security=True";
var cnn = new SqlConnection(ConnectionString);
cnn.Open();
var cmd = new SqlCommand();
cmd.Connection = cnn;
// コマンド文字列の解釈方法を指定
cmd.CommandType = System.Data.CommandType.StoredProcedure;
// データソースで実行するストアドプロシージャを指定
cmd.CommandText = "[usp_ins_animals_data]";
cmd.Parameters.Clear();
cmd.Parameters.Add("@ID", System.Data.SqlDbType.Int).Value = 12;
cmd.Parameters.Add("@Name", System.Data.SqlDbType.NVarChar, 50).Value = "バリィさん";
cmd.Parameters.Add("@Type", System.Data.SqlDbType.NVarChar, 50).Value = "鳥";
cmd.ExecuteNonQuery();
cmd.Dispose();
cnn.Close();
Dim ConnectionString As String = String.Empty
ConnectionString = "Data Source=localhost\MSSQLSERVER;Initial Catalog=TESTDB;Integrated Security=True"
Dim cnn = New SqlConnection(ConnectionString)
cnn.Open()
Dim cmd = New SqlCommand()
cmd.Connection = cnn
'コマンド文字列の解釈方法を指定
cmd.CommandType = System.Data.CommandType.StoredProcedure
'データソースで実行するTransact-SQLステートメントを指定
cmd.CommandText = "[usp_ins_animals_data]"
cmd.Parameters.Clear()
cmd.Parameters.Add("@ID", System.Data.SqlDbType.Int).Value = 12
cmd.Parameters.Add("@Name", System.Data.SqlDbType.NVarChar, 50).Value = "バリィさん"
cmd.Parameters.Add("@Type", System.Data.SqlDbType.NVarChar, 50).Value = "鳥"
'CommandTextをConnectionに送信し、SqlDataReaderを構築
cmd.ExecuteNonQuery()
cmd.Dispose()
cnn.Close()
| ID | Name | Type |
|---|---|---|
| 1 | たま | 猫 |
| 2 | ピーター | うさぎ |
| 3 | トム | 猫 |
| 4 | お父さん | 犬 |
| 5 | ふてニャン | 猫 |
| 6 | プー | くま |
| 7 | ファーファ | くま |
| 8 | ラスカル | アライグマ |
| 9 | サトちゃん | 象 |
| 10 | チーバくん | 犬 |
| 11 | パトラッシュ | 犬 |
』