daasc.blogg.se

Private Sub ComboBo圆_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBo圆.SelectedIndexChanged Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged TextBox5.Text = TextBox9.Text + "-" + Strings.Left(TextBox10.Text, 3) + "-" + TextBox11.Text Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged TextBox4.Text = TextBo圆.Text + "-" + Strings.Left(TextBox7.Text, 3) + "-" + TextBox8.Text Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load TextBox5.Text = DataGridView1.Item(3, i).Value

TextBox4.Text = DataGridView1.Item(2, i).Value TextBox2.Text = DataGridView1.Item(1, i).Value TextBox1.Text = DataGridView1.Item(0, i).Value

Simpan = "INSERT INTO table_buku (Kode_Buku, Tipe_Buku, Nama_Buku) VALUES ('" & TextBox3.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "') "ĭim str As String = "Select ID_Peminjam as, Nama_Peminjam as, Tanggal_Peminjaman as, Tanggal_Pengembalian as from table_peminjam ORDER By ID_Peminjam"ĭataGridView1.DataSource = DS.Tables("table_peminjam") MessageBox.Show("Data Belum Lengkap", " ", MessageBoxButtons.OK) If TextBox3.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Then Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Private Sub DataGridView1_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load TextBox2.Text = DataGridView1.Item(2, i).Value TextBox1.Text = DataGridView1.Item(1, i).Value TextBox3.Text = DataGridView1.Item(0, i).Value MessageBox.Show("Tidak Bisa Menyimpan Data ke Database", " ", MessageBoxButtons.OK)ĭim str As String = "Select Kode_Buku as, Tipe_Buku as, Nama_Buku as from table_buku ORDER By Kode_Buku"ĭA = New OleDb.OleDbDataAdapter(str, conn)ĭataGridView1.DataSource = DS.Tables("table_buku") MessageBox.Show("Data Berhasil Disimpan", " ", MessageBoxButtons.OK)

Private Sub jalankansql(ByVal sQl As String)