如何给SqlClient.SqlParameter类型赋值?

2005-12-22 05:17:04 269 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

feng1959 墨衍会员 · AI 创作全网分发关注 + 加入社区

攻克反光难题！YOLOv9工业缺陷检测实战：高反光件、微小划痕精准识别（附抗反光代码+产线数据）文章摘要：本文针对不锈钢、铝合金等高反光工业件的缺陷检测难题，提出了一套“硬件抗反光+YOLOv9小目标增强”的解决方案。通过分析反光干扰（镜面/漫反射）和微小划痕（0.1mm级）两大核心问题，详细介绍了500万像素工业相机+偏振光源的硬件配置方案，以及基于偏振图像融合和超分辨率放大的预处理方法。最终实现误检率1.2%、微小划痕检出率99.3%的工业级检测效果，并提供了可落地的代码实现和车间实测数据。（148字）阅读详情

我现在想往SqlDataAdapter.SelectCommand.Parameters中赋多个值,代码如下:

Dim adapter As New SqlClient.SqlDataAdapter
Dim aa() As SqlClient.SqlParameter
Public userid As String
Public password As String
Userid= "DotNet"
Password="DotNet"

aa(0).Value = userid 此处总报错, 'System.NullReferenceException' のハンドルされていない
aa(1).Value = password

……

For Each cmdParms As SqlClient.SqlParameter In aa
adapter.SelectCommand.Parameters.Add(cmdParms)
Next
该如何给SqlClient.SqlParameter类型赋值?另外如何给object类型赋值?问题可能比较菜,还请大虾们帮忙啊.

...全文

SqlParameter的用法 #### 一、SqlParameter简介`SqlParameter`是System.Data.SqlClient命名空间下的一个类，用于表示SQL Server存储过程中的输入参数、输出参数和返回值等立即下载

feng1959

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

feng1959 2005-12-27

打赏
举报

晕,不是这样吧.
不过还是先谢了.

feng1959 2005-12-23

打赏
举报

谢谢楼上的,但还是通不过.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim adapter As New SqlClient.SqlDataAdapter
Dim conn As New SqlClient.SqlConnection(connString)
Dim account As New DataSet
Dim aa(1) As SqlParameter
aa(0) = New SqlParameter("@UserId", SqlDbType.NChar)
aa(1) = New SqlParameter("@Password", SqlDbType.NChar)

aa(0).Value = "DotNet"
aa(1).Value = "DotNet"

conn.Open()
adapter.SelectCommand.CommandText = SQL_SELECT_ACCOUNT

For Each cmdParms As SqlClient.SqlParameter In aa
adapter.SelectCommand.Parameters.Add(cmdParms)
Next

adapter.Fill(account)
adapter.Dispose()
conn.Close()

DataGrid1.DataSource = account.Tables(0)
End Sub

在adapter.SelectCommand.CommandText = SQL_SELECT_ACCOUNT这一句有错误.

hamadou 2005-12-23

打赏
举报

问题从这里开始出现：

conn.Open()
‘下面两句存在矛盾，本身不是一个存储过程，为何要把类型设置为存储过程？
adapter.SelectCommand.CommandText = SQL_SELECT_ACCOUNT
adapter.SelectCommand.CommandType = CommandType.StoredProcedure

For Each cmdParms As SqlClient.SqlParameter In aa
adapter.SelectCommand.Parameters.Add(cmdParms)
Next
‘executereader本身是独占连接的，你这么做fill是用来做什么的呢？将executereader去掉。
adapter.SelectCommand.ExecuteReader()
adapter.Fill(account)
adapter.Dispose()
conn.Close()

DataGrid1.DataSource = account.Tables(0)

kjq_vb 2005-12-23

打赏
举报

把
adapter.SelectCommand.CommandText = SQL_SELECT_ACCOUNT
For Each cmdParms As SqlClient.SqlParameter In aa
adapter.SelectCommand.Parameters.Add(cmdParms)
Next
改为
For Each cmdParms As SqlClient.SqlParameter In aa
adapter.SelectCommand.Parameters.Add(cmdParms)
Next
adapter.SelectCommand.CommandText = SQL_SELECT_ACCOUNT

feng1959 2005-12-22

打赏
举报

看下面这个能清楚一点.

Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
'windows自带的代码
Public Const connString As String = "integrated security=sspi;initial catalog=pubs;data source=(local)"
Private Const SQL_SELECT_ACCOUNT As String = "SELECT Account.Email, Account.FirstName, Account.LastName, Account.Addr1, Account.Addr2, Account.City, Account.State, Account.Zip, Account.Country, Account.Phone, Profile.LangPref, Profile.FavCategory, Profile.MyListOpt, Profile.BannerOpt FROM Account INNER JOIN Profile ON Account.UserId = Profile.UserId INNER JOIN SignOn ON Account.UserId = SignOn.UserName WHERE SignOn.UserName = @UserId AND SignOn.Password = @Password"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim adapter As New SqlClient.SqlDataAdapter
Dim conn As New SqlClient.SqlConnection(connString)
Dim account As New DataSet
Dim aa(1) As SqlParameter
aa(0) = New SqlParameter("@UserId", SqlDbType.NChar)
aa(1) = New SqlParameter("@Password", SqlDbType.NChar)

aa(0).Value = "DotNet" 'userid
aa(1).Value = "DotNet"

conn.Open()
adapter.SelectCommand.CommandText = SQL_SELECT_ACCOUNT
adapter.SelectCommand.CommandType = CommandType.StoredProcedure

For Each cmdParms As SqlClient.SqlParameter In aa
adapter.SelectCommand.Parameters.Add(cmdParms)
Next

adapter.SelectCommand.ExecuteReader()
adapter.Fill(account)
adapter.Dispose()
conn.Close()

DataGrid1.DataSource = account.Tables(0)
End Sub
End Class

feng1959 2005-12-22

打赏
举报

上面的问题我不想了,可能本身想法就是错的.麻烦各位帮我看看下面的程序错在什么地方?初学,程序漏洞百出,请各位帮忙给改改.谢了
Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows フォームデザイナで生成されたコード "

Public Sub New()
MyBase.New()

' この呼び出しは Windows フォームデザイナで必要です。
InitializeComponent()

' InitializeComponent() 呼び出しの後に初期化を追加します。

End Sub

' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。
Protected Overloads Overrides 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 フォームデザイナで必要です。
Private components As System.ComponentModel.IContainer

' メモ : 以下のプロシージャは、Windows フォームデザイナで必要です。
'Windows フォームデザイナを使って変更してください。
' コードエディタを使って変更しないでください。
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.DataGrid1 = New System.Windows.Forms.DataGrid
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(24, 216)
Me.Button1.Name = "Button1"
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, 32)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.Size = New System.Drawing.Size(272, 168)
Me.DataGrid1.TabIndex = 1
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
Me.ClientSize = New System.Drawing.Size(292, 273)
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
Public Const connString As String = "integrated security=sspi;initial catalog=pubs;data source=(local)"
Private Const SQL_SELECT_ACCOUNT As String = "SELECT Account.Email, Account.FirstName, Account.LastName, Account.Addr1, Account.Addr2, Account.City, Account.State, Account.Zip, Account.Country, Account.Phone, Profile.LangPref, Profile.FavCategory, Profile.MyListOpt, Profile.BannerOpt FROM Account INNER JOIN Profile ON Account.UserId = Profile.UserId INNER JOIN SignOn ON Account.UserId = SignOn.UserName WHERE SignOn.UserName = @UserId AND SignOn.Password = @Password"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim adapter As New SqlClient.SqlDataAdapter
Dim conn As New SqlClient.SqlConnection(connString)
Dim account As New DataSet
Dim aa(1) As SqlParameter
aa(0) = New SqlParameter("@UserId", SqlDbType.NChar)
aa(1) = New SqlParameter("@Password", SqlDbType.NChar)

aa(0).Value = "DotNet" 'userid
aa(1).Value = "DotNet"

conn.Open()
adapter.SelectCommand.CommandText = SQL_SELECT_ACCOUNT
adapter.SelectCommand.CommandType = CommandType.StoredProcedure

For Each cmdParms As SqlClient.SqlParameter In aa
adapter.SelectCommand.Parameters.Add(cmdParms)
Next

adapter.SelectCommand.ExecuteReader()
adapter.Fill(account)
adapter.Dispose()
conn.Close()

DataGrid1.DataSource = account.Tables(0)
End Sub
End Class

feng1959 2005-12-22

打赏
举报

不要c#的代码,c#的和我要的有出入.
还有,我要添加的参数未知,Dim aa() As SqlClient.SqlParameter
在new SqlParameter时,声明的个数不清楚,不知该怎么解决?

LFreeX 2005-12-22

打赏
举报

C#的代码？
SqlParameter[] parameters ={
new SqlParameter("@aaa", SqlDbType.Int),
new SqlParameter("@languageCodesdf", SqlDbType.VarChar)
};

如何给SqlClient.SqlParameter类型赋值?

相关推荐