剛開始學vb.net,感覺應該有簡單的寫法,那個前輩指導一下.

Private Sub But_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_add.Click









        Dim chaxunmubiao As String = ComboBox1.Text



        Dim Var_number As String = Tex_number.Text

        '*	編號

        Dim Var_name As String = Tex_name.Text

        '*	姓名

        Dim Var_dbrname As String = Tex_dbrname.Text

        '*	擔保人姓名

        Dim Var_sex As String = Tex_sex.Text

        '*	性別

        Dim Var_csrq As String = Tex_csrq.Text

        '   出生日期

        Dim Var_age As String = Tex_age.Text

        '   年齡

        Dim Var_rzsj As String = Tex_rzsj.Text

        '*	入住時間

        Dim Var_fjh As String = Tex_fjh.Text

        '*	房間號

        Dim Var_huji As String = Tex_huji.Text

        '   戶籍所在地

        Dim Var_id As String = Tex_id.Text

        '*	身份證

        Dim Var_zp As String = PictureBox1.ImageLocation

        '   照片

        Dim Var_rzyy As String = Tex_rzyy.Text

        '   入住原因

        Dim Var_tjzl As String = Tex_tjzl.Text

        '   體檢資料

        Dim Var_fwjb As String = Tex_fwjb.Text

        '   服務級別

        Dim Var_yzyj As String = Tex_yzyj.Text

        '   院長意見



        Try

            If Var_number <> "null" & Var_name <> "null" Then

                Dim cnStr As String = "Data Source=(local);Initial Catalog=yly;Integrated Security=true;"

                cn = New SqlConnection(cnStr)

                Dim da_Str As String = "insert into "

                da_Str += chaxunmubiao

                da_Str += " values "

                da_Str += "("

                Dim a As String = "'"

                Dim b As String = ","

                da_Str += a + Var_number + a + b

                '*	編號

                da_Str += a + Var_name + a + b

                '*	姓名

                da_Str += a + Var_dbrname + a + b

                '*	擔保人姓名

                da_Str += a + Var_sex + a + b

                '*	性別

                da_Str += a + Var_csrq + a + b

                '   出生日期

                da_Str += a + Var_age + a + b

                '   年齡

                da_Str += a + Var_rzsj + a + b

                '*	入住時間

                da_Str += a + Var_fjh + a + b

                '*	房間號

                da_Str += a + Var_huji + a + b

                '   戶籍所在地

                da_Str += a + Var_id + a + b

                '*	身份證

                'da_Str += a + a + b

                da_Str += a + Var_zp + a + b

                '   照片

                da_Str += a + Var_rzyy + a + b

                '   入住原因

                da_Str += a + Var_tjzl + a + b

                '   體檢資料

                da_Str += a + Var_fwjb + a + b

                '   服務級別

                da_Str += a + Var_yzyj + a

                da_Str += ")"

                ''''Label1.Text = da_Str

                da = New SqlDataAdapter(da_Str, cn)

                ' insert into 老人資訊

                'values ('20161212','999','張五','男','','','20160821','107','','231025198505015717','','','','','')

                ds = New DataSet()

                da.Fill(ds, "grade1")

                DataGridView1.DataSource = ds.Tables("grade1")

            End If

        Catch ex As Exception

            MsgBox("紅色的是必須填寫的項,且不能為空!請重新填寫!")

        End Try



        

    End Sub

uj5u.com熱心網友回復：

uj5u.com熱心網友回復：

String.Format("insert into {0} values('", chaxunmubiao) & 

  Join({變數1，變數2……},"','") & 

  "')"

標籤：VB基礎類

上一篇：圖片指定坐標移動，類似商品飛入購入車的效果？

下一篇：VB60如何連接SQL2012