If String.IsNullOrWhiteSpace(txtadmno.Text) Or String.IsNullOrWhiteSpace(txtcard.Text) Then
MessageBox.Show("Please complete the on the box.", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Using conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb")
Dim Result As Integer
** Dim sql As String = "INSERT [Date Select] From tbl_studentadm values (@DateSelect) "*****in here shold i key in the admin no and admin care so that when i register in it will record in the access***
Dim cmd As New System.Data.OleDb.OleDbCommand(sql, conn)
Dim dtmNow As Date
cmd.Parameters.Add("@dateselect", OleDb.OleDbType.Date).Value = DTP.Value
conn.Open()
dtmNow = DateValue(Now)
Result = cmd.ExecuteNonQuery()
Xiao_1 0 Junior Poster in Training
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.