Imports System.Data.SqlClient
Imports System.Xml
PublicClass Form1
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim CN AsNew SqlConnection()
Dim SqlCmd AsNew SqlCommand()
Dim SqlAdapt AsNew SqlDataAdapter(SqlCmd)
Dim Ds AsNew DataSet
SqlCmd.Connection = CN
SqlCmd.CommandText = ""
CN.Close()
CN.ConnectionString = "SERVER = " & ServerName & _
" ; DATABASE =" & DataBaseName & _
" ; User ID =" & My_UserName & _
" ; Pwd = " & My_Password
CN.Open()
SqlCmd.CommandType = CommandType.StoredProcedure
SqlCmd.ExecuteNonQuery()
SqlAdapt.Fill(Ds)
EndSub
EndClass
پاسخ با نقل قول