[asemshahen5]

أقصد أن تضع هذا الاستعلام في لود فورم

أعرف أنك تمزح :

و لكن لتعم الفائدة :

كود :

Dim StrSQL As String = "Select * From bank_branch_bank_user7 "

       Dim cn As New SqlClient.SqlConnection("Server =(local);database=daccount;integrated security=True")
       Dim StrTableName As String = "bank_branch_bank_user7"
       If cn.State = ConnectionState.Closed Then cn.Open()
       Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
       Dim dt As New DataSet
       da.Fill(dt, StrTableName)
       Dgv_Table.DataSource = dt.Tables(StrTableName)

هذا أستعلام إضافة مركب من عدة جداول جربه .

كود :

   Public Sub INSERT_INTO_Bank()
       Dim UserIDStr As String = "Select user_id From user7 where user_name=N'" & Cmb_User_name.Text & "'"
       Dim branchIDStr As String = "Select branch_id From branch where branch_name=N'" & Cmb_branch_name.Text & "'"
       Dim StrSQL As String = "INSERT INTO bank (bank_id,bank_name,bank_address,bank_branch_id,bank_account,bank_swiftcode,bank_phone,bank_fax,bank_email,bank_webpage,bank_user_id,bank_date,bank_note,bank_color,bank_parent ) VALUES ('" &
       Txt_bank_id.Text & "','" & Txt_bank_name.Text & "','" & Txt_bank_address.Text & "',(" & branchIDStr & "),'" & Txt_bank_account.Text & "','" &
       Txt_bank_swiftcode.Text & "','" & Txt_bank_phone.Text & "','" & Txt_bank_fax.Text & "','" & Txt_bank_email.Text & "','" & Txt_bank_webpage.Text & "',(" &
       UserIDStr & "),'" & Dtp_bank_date.Value & "','" & Txt_bank_note.Text & "','" & Txt_bank_color.Text & "','" & Txt_bank_parent.Text & "')"
       Dim con As New SqlConnection("Server =(local);database=daccount;integrated security=True")
       If con.State = ConnectionState.Closed Then con.Open()
       Dim da As New SqlDataAdapter(StrSQL, con)
       Dim dt As New DataSet
       da.Fill(dt, "bank")
   End Sub