(فوری)اتصال sql به vb6 - نسخه‌ی قابل چاپ

کد:

Dim storedProcedure As String

Dim cmd As New System.Data.SqlClient.SqlCommand()

Dim conn As New System.Data.SqlClient.SqlConnection()

Dim ConnectionString As String = "yourConnectionString"



conn.ConnectionString = ConnectionString

cmd.Connection = conn

cmd.CommandType = CommandType.StoredProcedure



storedProcedure = "YourStoredPROceduReName"

cmd.CommandText = storedProcedure



cmd.Parameters.Add("@col1name", SqlDbType.Int)

cmd.Parameters("@col1name").Value = textbox1.Text

cmd.Parameters.Add("@col2name", SqlDbType.Int)

cmd.Parameters("@col2name").Value = textbox2.Text

cmd.Parameters.Add("@col3name", SqlDbType.Int)

cmd.Parameters("@col3name").Value = textbox3.Text

cmd.Parameters.Add("@col4name", SqlDbType.Int)

cmd.Parameters("@col4name").Value = textbox4.Text

cmd.Parameters.Add("@col5name", SqlDbType.Int)

cmd.Parameters("@col5name").Value = textbox5.Text

cmd.Parameters.Add("@col6name", SqlDbType.Int)

cmd.Parameters("@col7name").Value = textbox6.Text



conn.Open()

cmd.ExecuteNonQuery()



conn.Close()

کد:

CREATE    PROCEDURE YourStoredPROceduReName

(

 @col1name nvarchar(50), @col2name nvarchar(50), @col3name nvarchar(50), @col4name nvarchar(50), 

        @col5name nvarchar(50), @col6name nvarchar(50)

)



AS





INSERT INTO YOUR_Table_name ([col1name], [col2name], [col3name], [col4name], [col5name], [col6name]) VALUES (

@col1name, @col2name, @col3name, @col4name, @col5name, @col6name)