26-03-19, 09:39 PM
عايز اخلى اتصال القاعدة من sql لى mysql فى الكود دا
كود :
Imports System.Data.OleDb
Imports System.Globalization
Imports System.Threading
Public Class Form1
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\Database.accdb"
Dim con As OleDbConnection = New OleDbConnection(str)
Dim da As OleDbDataAdapter
Dim cm As OleDbCommandBuilder
Dim com As OleDbCommand
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US")
Dim dt1, dt2 As New DataTable
dt1.Clear()
dt2.Clear()
Dim sql As String = "SELECT * FROM users WHERE username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'"
da = New OleDbDataAdapter(sql, con)
cm = New OleDbCommandBuilder(da)
da.Fill(dt1)
REM رقم -15 تعنى فى حالة تجاوز المستخدم الـ 15 دقيقة دون تحديث حركة فهذا يعنى ان المستخدم قام باغلاق البرنامج بدون تسجيل خروج وسيعتبره غير موجود
Dim sql2 As String = "SELECT * FROM loguser WHERE Time>=#" & Now.AddMinutes(-15).ToString("HH:mm") & "# and Date=#" & Now.ToShortDateString() & "#"
da = New OleDbDataAdapter(sql2, con)
cm = New OleDbCommandBuilder(da)
da.Fill(dt2)
If dt2.Rows.Count >= 4 Then
MsgBox("عفواً يوجد بالفعل عدد 4 مستخدمين على البرنامج وهو الحد الاقصي لترخيص البرنامج")
Exit Sub
ElseIf dt2.Rows.Count >= 0 And dt2.Rows.Count <= 3 Then
If dt1.Rows.Count > 0 Then
' Start Add To Database
If Not con.State = ConnectionState.Open Then
con.Open()
End If
Dim timeNow As String = Now.ToString("HH:mm")
Dim dateNow As Date = Now.ToShortDateString()
Dim sqlins As String = "INSERT INTO loguser (`username`, `Time`, `Date`) VALUES ('" & TextBox1.Text & "', #" & timeNow & "#, #" & dateNow & "#)"
Using cmd As New OleDbCommand(sqlins, con)
cmd.ExecuteNonQuery()
End Using
con.Close()
' End Add To Database
Form2.username = TextBox1.Text
Form2.Show()
Me.Close()
Else
MsgBox("أسم المستخدم أو كلمة المرور غير صحيحة الرجاء اعادة المحاولة")
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub