چینی ساز
یک شنبه 18 اسفند 1392, 14:21 عصر
سلام
من ی کد دارم ازش بارها استفاده کردم نمی دونم چرا الان ایراد می گیره
Imports System.Data.OleDb
Public Class Form_gkala
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox2.Text = "" Then
ErrorProvider1.SetError(TextBox2, "نام گزوه ضروری است")
MsgBox("اطلاعات ضروری ثبت نشده اند", MsgBoxStyle.OkOnly, "هشدار کمبود اطلاعات")
Else
ErrorProvider1.SetError(TextBox2, "")
Dim cmd1 As New OleDbCommand
Dim strsql As String
connect.Open()
strsql = "insert into g_kala (group) Values "
strsql &= "('" & TextBox2.Text & "' )"
cmd1 = New OleDbCommand(strsql, connect)
cmd1.ExecuteNonQuery()
connect.Close()
MsgBox("اطلاعات با موفقیت ثبت گردید", MsgBoxStyle.OkOnly, "ثبت اطلاعات")
End If
DGWIVE()
End Sub
Private Sub DGWIVE()
connect.Open()
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim strsql1 As String
strsql1 = "select group as[نام گروه] from g_kala"
da = New OleDbDataAdapter(strsql1, connect)
da.Fill(ds, "db1")
DataGridView1.DataSource = ds.Tables("db1")
connect.Close()
End Sub
End Class
من ی کد دارم ازش بارها استفاده کردم نمی دونم چرا الان ایراد می گیره
Imports System.Data.OleDb
Public Class Form_gkala
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox2.Text = "" Then
ErrorProvider1.SetError(TextBox2, "نام گزوه ضروری است")
MsgBox("اطلاعات ضروری ثبت نشده اند", MsgBoxStyle.OkOnly, "هشدار کمبود اطلاعات")
Else
ErrorProvider1.SetError(TextBox2, "")
Dim cmd1 As New OleDbCommand
Dim strsql As String
connect.Open()
strsql = "insert into g_kala (group) Values "
strsql &= "('" & TextBox2.Text & "' )"
cmd1 = New OleDbCommand(strsql, connect)
cmd1.ExecuteNonQuery()
connect.Close()
MsgBox("اطلاعات با موفقیت ثبت گردید", MsgBoxStyle.OkOnly, "ثبت اطلاعات")
End If
DGWIVE()
End Sub
Private Sub DGWIVE()
connect.Open()
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim strsql1 As String
strsql1 = "select group as[نام گروه] from g_kala"
da = New OleDbDataAdapter(strsql1, connect)
da.Fill(ds, "db1")
DataGridView1.DataSource = ds.Tables("db1")
connect.Close()
End Sub
End Class