تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تغير اتصال قاعدة sql الى mysql
#1
عايز اخلى اتصال القاعدة من 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] نص اتصال قاعدة sqlite بكلمة المرور princelovelorn 8 521 18-10-19, 02:08 AM
آخر رد: اللورد محمود
  [VB.NET] التعامل مع قاعدة بيانات أكسس vb.net 2012 paypalet 1 75 15-10-19, 03:40 PM
آخر رد: elgokr
  طريقة حفظ بإسم لجدول موجود في قاعدة البيانات مع بقاء الجدول الأساسي جيولوجي مبتدئ 11 258 15-10-19, 05:00 AM
آخر رد: elgokr
  [سؤال] كود الحذف من قاعدة بيانات muad 2 91 14-10-19, 10:11 PM
آخر رد: muad
  [VB.NET] مسار قاعدة البيانات محمد اسماعيل 12 269 06-10-19, 01:52 PM
آخر رد: محمد اسماعيل
  معرفة عدد الجداول في قاعدة بيانات ابو همام العراقي 6 188 30-09-19, 12:34 AM
آخر رد: asemshahen5
  كيف يتعرف البرناج على موقع قاعدة بيانات sqlserver nooralcown 1 105 29-09-19, 04:05 PM
آخر رد: اسامه الهرماوي
  [VB.NET] مشاكل بقاعدة البيانات MySQL azoz 3 137 22-09-19, 12:10 PM
آخر رد: azoz
  [سؤال] قاعدة بيانات AbdoDabak 1 85 20-09-19, 04:51 PM
آخر رد: اسامه الهرماوي
  تغير الوقت عشوائيا بين تنفيذ الأكواد ابو روضة 6 262 18-09-19, 06:56 AM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم