zoukankan
html css js c++ java
.net與存存儲過程
Imports
System.Data
Imports
System.Data.SqlClient
Imports
System.Data.SqlTypes
Public
Class Form1
Class
Form1
Inherits
System.Windows.Forms.Form
Windows Form 設計工具產生的程式碼
#Region
" Windows Form 設計工具產生的程式碼 "
Public
Sub New()
Sub
New
()
MyBase
.
New
()
'
此為 Windows Form 設計工具所需的呼叫。
InitializeComponent()
'
在 InitializeComponent() 呼叫之後加入所有的初始設定
End Sub
'
Form 覆寫 Dispose 以清除元件清單。
Protected
Overloads
Overrides
Sub Dispose()
Sub
Dispose(
ByVal
disposing
As
Boolean
)
If
disposing
Then
If
Not
(components
Is
Nothing
)
Then
components.Dispose()
End
If
End
If
MyBase
.Dispose(disposing)
End Sub
'
為 Windows Form 設計工具的必要項
Private
components
As
System.ComponentModel.IContainer
'
注意: 以下為 Windows Form 設計工具所需的程序
'
您可以使用 Windows Form 設計工具進行修改。
'
請勿使用程式碼編輯器來修改這些程序。
Friend
WithEvents
Button1
As
System.Windows.Forms.Button
Friend
WithEvents
DataGrid1
As
System.Windows.Forms.DataGrid
Friend
WithEvents
SqlSelectCommand1
As
System.Data.SqlClient.SqlCommand
Friend
WithEvents
SqlInsertCommand1
As
System.Data.SqlClient.SqlCommand
Friend
WithEvents
SqlConnection1
As
System.Data.SqlClient.SqlConnection
Friend
WithEvents
SqlDataAdapter1
As
System.Data.SqlClient.SqlDataAdapter
Friend
WithEvents
Button2
As
System.Windows.Forms.Button
Friend
WithEvents
TextBox1
As
System.Windows.Forms.TextBox
<
System.Diagnostics.DebuggerStepThrough()
>
Private
Sub InitializeComponent()
Sub
InitializeComponent()
Me
.Button1
=
New
System.Windows.Forms.Button
Me
.DataGrid1
=
New
System.Windows.Forms.DataGrid
Me
.SqlSelectCommand1
=
New
System.Data.SqlClient.SqlCommand
Me
.SqlInsertCommand1
=
New
System.Data.SqlClient.SqlCommand
Me
.SqlConnection1
=
New
System.Data.SqlClient.SqlConnection
Me
.SqlDataAdapter1
=
New
System.Data.SqlClient.SqlDataAdapter
Me
.Button2
=
New
System.Windows.Forms.Button
Me
.TextBox1
=
New
System.Windows.Forms.TextBox
CType
(
Me
.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me
.SuspendLayout()
'
'
Button1
'
Me
.Button1.Location
=
New
System.Drawing.Point(
8
,
8
)
Me
.Button1.Name
=
"
Button1"
Me
.Button1.Size
=
New
System.Drawing.Size(
80
,
24
)
Me
.Button1.TabIndex
=
0
Me
.Button1.Text
=
"
Button1"
'
'
DataGrid1
'
Me
.DataGrid1.DataMember
=
"
"
Me
.DataGrid1.HeaderForeColor
=
System.Drawing.SystemColors.ControlText
Me
.DataGrid1.Location
=
New
System.Drawing.Point(
8
,
48
)
Me
.DataGrid1.Name
=
"
DataGrid1"
Me
.DataGrid1.Size
=
New
System.Drawing.Size(
440
,
176
)
Me
.DataGrid1.TabIndex
=
1
'
'
SqlSelectCommand1
'
Me
.SqlSelectCommand1.CommandText
=
"
SELECT studentID, studentName, studentAge, studentDesc FROM Student"
Me
.SqlSelectCommand1.Connection
=
Me
.SqlConnection1
'
'
SqlInsertCommand1
'
Me
.SqlInsertCommand1.CommandText
=
"
INSERT INTO Student(studentID, studentName, studentAge, studentDesc) VALUES (@stu
"
&
_
"
dentID, @studentName, @studentAge, @studentDesc); SELECT studentID, studentName,
"
&
_
"
studentAge, studentDesc FROM Student"
Me
.SqlInsertCommand1.Connection
=
Me
.SqlConnection1
Me
.SqlInsertCommand1.Parameters.Add(
New
System.Data.SqlClient.SqlParameter(
"
@studentID
"
, System.Data.SqlDbType.
Int
,
4
,
"
studentID
"
))
Me
.SqlInsertCommand1.Parameters.Add(
New
System.Data.SqlClient.SqlParameter(
"
@studentName
"
, System.Data.SqlDbType.VarChar,
10
,
"
studentName
"
))
Me
.SqlInsertCommand1.Parameters.Add(
New
System.Data.SqlClient.SqlParameter(
"
@studentAge
"
, System.Data.SqlDbType.
Int
,
4
,
"
studentAge
"
))
Me
.SqlInsertCommand1.Parameters.Add(
New
System.Data.SqlClient.SqlParameter(
"
@studentDesc
"
, System.Data.SqlDbType.VarChar,
50
,
"
studentDesc
"
))
'
'
SqlConnection1
'
Me
.SqlConnection1.ConnectionString
=
"
workstation id=FYK;packet size=4096;integrated security=SSPI;data source=FYK;pers
"
&
_
"
ist security info=True;initial catalog=test"
'
'
SqlDataAdapter1
'
Me
.SqlDataAdapter1.InsertCommand
=
Me
.SqlInsertCommand1
Me
.SqlDataAdapter1.SelectCommand
=
Me
.SqlSelectCommand1
Me
.SqlDataAdapter1.TableMappings.AddRange(
New
System.Data.Common.DataTableMapping() {
New
System.Data.Common.DataTableMapping(
"
Table
"
,
"
Student
"
,
New
System.Data.Common.DataColumnMapping() {
New
System.Data.Common.DataColumnMapping(
"
studentID
"
,
"
studentID
"
),
New
System.Data.Common.DataColumnMapping(
"
studentName
"
,
"
studentName
"
),
New
System.Data.Common.DataColumnMapping(
"
studentAge
"
,
"
studentAge
"
),
New
System.Data.Common.DataColumnMapping(
"
studentDesc
"
,
"
studentDesc
"
)})})
'
'
Button2
'
Me
.Button2.Location
=
New
System.Drawing.Point(
224
,
8
)
Me
.Button2.Name
=
"
Button2"
Me
.Button2.Size
=
New
System.Drawing.Size(
72
,
24
)
Me
.Button2.TabIndex
=
2
Me
.Button2.Text
=
"
返回值"
'
'
TextBox1
'
Me
.TextBox1.Location
=
New
System.Drawing.Point(
312
,
8
)
Me
.TextBox1.Name
=
"
TextBox1"
Me
.TextBox1.Size
=
New
System.Drawing.Size(
128
,
22
)
Me
.TextBox1.TabIndex
=
3
Me
.TextBox1.Text
=
"
"
'
'
Form1
'
Me
.AutoScaleBaseSize
=
New
System.Drawing.Size(
5
,
15
)
Me
.ClientSize
=
New
System.Drawing.Size(
456
,
229
)
Me
.Controls.Add(
Me
.TextBox1)
Me
.Controls.Add(
Me
.Button2)
Me
.Controls.Add(
Me
.DataGrid1)
Me
.Controls.Add(
Me
.Button1)
Me
.Name
=
"
Form1"
Me
.Text
=
"
Form1"
CType
(
Me
.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me
.ResumeLayout(
False
)
End Sub
#End Region
Private
Sub Button1_Click()
Sub
Button1_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
'
返回記錄集
'
Dim cn As New SqlClient.SqlConnection("server=.;database=test;password=;user id=sa")
Dim
cn
As
New
SqlClient.SqlConnection
cn.ConnectionString
=
Me
.SqlConnection1.ConnectionString
cn.Open()
Dim
cm
As
New
SqlClient.SqlCommand(
"
sp_studentQuery
"
, cn)
Dim
ada
As
New
SqlClient.SqlDataAdapter
Dim
trm
As
SqlClient.SqlTransaction
cm.CommandType
=
CommandType.StoredProcedure
cm.Parameters.Add(
"
@studentID
"
, SqlDbType.BigInt).Value
=
1
'
Dim sqlParams() As SqlClient.SqlParameter = {New SqlParameter("@studentID", 10)}
'
cm.Parameters.Add(sqlParams(0))
MsgBox
(cm.Parameters.Count().ToString())
'
cm.ExecuteReader()
ada.SelectCommand
=
cm
Dim
dataset
As
New
Data.DataTable
ada.Fill(dataset)
Me
.DataGrid1.DataSource
=
dataset
'
cm.Transaction = trm
Try
MsgBox
(cm.Parameters.Count().ToString()
+
cm.ExecuteReader.FieldCount.ToString)
'
trm.Commit()
Catch
ex
As
Exception
'
trm.Rollback()
End
Try
'
MsgBox(cn.State.ToString)
End Sub
Private
Sub Button2_Click()
Sub
Button2_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button2.Click
'
返回值
Dim
cn
As
New
SqlClient.SqlConnection
cn.ConnectionString
=
Me
.SqlConnection1.ConnectionString
cn.Open()
Dim
cm
As
New
SqlClient.SqlCommand(
"
sp_add
"
, cn)
Dim
trm
As
SqlClient.SqlTransaction
Dim
ada
As
New
SqlClient.SqlDataAdapter
cm.CommandType
=
CommandType.StoredProcedure
cm.Parameters.Add(
"
@a
"
, SqlDbType.BigInt).Value
=
152
cm.Parameters.Add(
"
@b
"
, SqlDbType.BigInt).Value
=
11
cm.Parameters.Add(
"
@c
"
, SqlDbType.BigInt).Direction
=
ParameterDirection.Output
cm.ExecuteNonQuery()
Dim
s
As
Object
=
cm.Parameters(
"
@c
"
).Value
MsgBox
(
CType
(s,
String
))
End Sub
End Class
查看全文
相关阅读:
JVM,反射与动态代理
11款实用的一句话网站设计代码
Winform TextBox中只能输入数字的几种常用方法(C#)
列表checkbox全选
函数调用约定
vs编译后在本机能运行,在别的机器上运行提示runtime Error的问题
学习地形编程(一)
Ogre中动态三维鼠标的实现
讲讲volatile的作用
绕任意轴旋转的推导
原文地址:https://www.cnblogs.com/fuyingke/p/194583.html
最新文章
Unix toolbox注解1之Linux系统硬件信息 枯木
XCODE个人常用快捷键整理
更改UE4项目缓存路径
oracle sql plus 常用命令
dba_tables,all_tables,user_tables
一个项目系统的调优
user and schema(转)
sqlplus连接登录数据库时,出现 ORA28009错误
RHEL 安装apache
USER AND SCHEMA
热门文章
.Net Core MVC全局过滤器验证是否需要登录
nginx 添加ssl认证,访问静态资源 笔记
面向对象
JDK5新特性之二新的格式化输出
JDK5新特性之一静态导入
数据库设计三大范式应用实例剖析
Java 1.5新特性Enum的用法
Java线程学习和总结
第五章Java虚拟机(Chapter Five: The Java Virtual Machine)
C++面试试题收集
Copyright © 2011-2022 走看看