[Emam emam]

(30-07-19, 02:56 AM)اسامه الهرماوي كتب : أنا بستخدم الكود دا وهو شغال معي 100%

كود :

Dim Cmd As New SqlCommand
           With Cmd
               .Connection = con
               .CommandType = CommandType.Text
               .CommandText = "Insert Into table (اسم_الخدمة,التكلفة)values('" & t1.Text & "','" & t2.Text & "')"
           End With
           If con.State = 1 Then con.Close()
           con.Open()
           Cmd.ExecuteNonQuery()
           con.Close()
           MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
           Cmd = Nothing

شكرا اخي اسامه
ولكن ان كنت ساستخدم هدا الكود مثلا مائة مرة . 
سيكون الامر صعب ان اكتب الكود كاملا في كل مره وخاصة ان كان عد السجلات كثيرا 
فهل ينفع اعمله في Sub  ثم اقوم باستدعائه حينما اشاء
كيف دلك وجزاك الله خيرا