The Lounge is rated Safe For Work. If you're about to post something inappropriate for a shared office environment, then don't post it. No ads, no abuse, and no programming questions. Trolling, (political, climate, religious or whatever) will result in your account being removed.
Considering I left the house this morning without power, I suspect this to be the case right now since my neighbor kindly informed me that the power was back on. Good news is the fridge/freezer was already empty in advance of my vacation later this week.
We are sorry but all our agents are busy at the moment. Your call is totally unimportant as far as we are concerned, but we could play you some really annoying music if you like. Why not send us a postcard with your favourite tunes?
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Database4.accdb")
Dim cmd As New OleDbCommand("select* from Table where [name]=@user and [address]=@pass", conn)
cmd.Parameters.Add("@user", OleDbType.VarChar).Value = TextBox1.Text
cmd.Parameters.Add("@pass", OleDbType.VarChar).Value = TextBox1.Text
Dim adapter1 As New OleDbDataAdapter(cmd)
Dim table As New DataTable
If table.Rows.Count <= 0 Then
MsgBox("Error username or password")
Last Visit: 21-Oct-19 8:18 Last Update: 21-Oct-19 8:18