elnazii
سه شنبه 13 بهمن 1388, 12:36 عصر
دوستان من از یک دیتا گرید ویو استفاده می کنم تا یک رکورد ثبت کنم و بعد مقادیر جدولم رو نشون بدم و با این کد هایی که گذاشتم. ولی گاهی درست کار می کنه و گاهی دیتا گرید ویو هیچ چی نشون نمی ده:افسرده:
Dim cn As New SqlConnection(strcon)
cn.Open()
Dim strsql As String
strsql = "insert INTO [fehrest]([shomaresabtekhati],[fehrest])values(N'" & shomaresabteamval & "',N'" & txt0.Text & "')"
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = strsql
cmd.ExecuteNonQuery()
txt0.Clear()
strsql = "select * from [fehrest] where shomaresabtekhati = '" & shomaresabteamval & "'"
Dim da As New SqlDataAdapter(strsql, strcon)
Dim ds As New DataSet
ds.Clear()
da.Fill(ds)
DGv1.DataSource = ds
DGv1.DataMember = "table"
DGv1.Columns(0).Visible = False
DGv1.Columns(0).HeaderText = "شماره ثبت اموال"
DGv1.Columns(1).Visible = False
DGv1.Columns(1).HeaderText = "ردیف"
DGv1.Columns(2).Visible = True
DGv1.Columns(2).HeaderText = "فهرست"
DGv1.Refresh()
cn.Close()
Dim cn As New SqlConnection(strcon)
cn.Open()
Dim strsql As String
strsql = "insert INTO [fehrest]([shomaresabtekhati],[fehrest])values(N'" & shomaresabteamval & "',N'" & txt0.Text & "')"
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = strsql
cmd.ExecuteNonQuery()
txt0.Clear()
strsql = "select * from [fehrest] where shomaresabtekhati = '" & shomaresabteamval & "'"
Dim da As New SqlDataAdapter(strsql, strcon)
Dim ds As New DataSet
ds.Clear()
da.Fill(ds)
DGv1.DataSource = ds
DGv1.DataMember = "table"
DGv1.Columns(0).Visible = False
DGv1.Columns(0).HeaderText = "شماره ثبت اموال"
DGv1.Columns(1).Visible = False
DGv1.Columns(1).HeaderText = "ردیف"
DGv1.Columns(2).Visible = True
DGv1.Columns(2).HeaderText = "فهرست"
DGv1.Refresh()
cn.Close()