Mencegah data kembar pada Visual Basic 6.0

Private Sub nama_obyek_GotFocus()
Dim nama_alias_tabel As New ADODB.Recordset
SQL = "select * from nama_tabel where field_SQL='" & nama_objek_form_VB & "'"
nama_alias_tabel.Open SQL, conn
If Not nama_alias_tabel.EOF Then
Pesan = MsgBox("Data sudah ada dalam database", vbInformation + vbOKOnly, "Informasi")
nama_objek_form_VB.Text = nama_alias_tabel.Fields(n)
End If

End Sub

Tweet