Gan Help me..
convert date ke string kyk mna..??
spesified cast is not invalid
ane mau buat logika kayak gini, jika no urut dan tanggal sudah ada, maka blablabla
Quote:
Private Sub Button_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Simpan.Click
If TextBox_Harga.Text = "" Or TextBox_Jumlah.Text = "" Then
MsgBox("Data Belum Lengakap")
ElseIf ComboBox1.Text = rd.GetValue(0) And DateTimePicker1.Text = rd.GetString(3).ToStringThen
MsgBox("Data sudah ada")
ElseIf ComboBox1.Text = rd.GetValue(0) Then
Dim sqltambah As String = "insert into T_Distribusi values" & "('" & ComboBox1.Text & "','" _
& Label_Nama.Text & "','" _
& Label_Alamat.Text & "','" _
& DateTimePicker1.Text & "','" _
& TextBox_Harga.Text & "','" _
& TextBox_Jumlah.Text & "')"
cmd = New OleDbCommand(sqltambah, conn)
cmd.ExecuteReader()
MsgBox("Data Bertambah")
Call kosongkan()
Call tampilkan()
Else
cmd = New OleDbCommand("select * from T_Distribusi where No_Urut='" & ComboBox1.Text & "'", conn)
rd = cmd.ExecuteReader()
rd.Read()
If Not rd.HasRows = True Then
Dim sqltambah As String = "insert into T_Distribusi values" & "('" & ComboBox1.Text & "','" _
& Label_Nama.Text & "','" _
& Label_Alamat.Text & "','" _
& DateTimePicker1.Text & "','" _
& TextBox_Harga.Text & "','" _
& TextBox_Jumlah.Text & "')"
cmd = New OleDbCommand(sqltambah, conn)
cmd.ExecuteReader()
MsgBox("Data Tersimpan")
Call kosongkan()
Call tampilkan()
End If
End If
End Sub
Errornya d yang ane kasi warna merah gan..