تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up [SQL] تطبيق عملى لمشروع قاعدة بيانات بSQL محمود بكير 1 116 13-10-20, 03:39 PM
آخر رد: محمد كريّم
  حفظ list box في قاعدة البيانات اعينوني,,,,,,, KIKO1992 0 77 13-10-20, 11:08 AM
آخر رد: KIKO1992
  كيف أضيف مجموعة من الـ My.Setting مرة واحدة باسم واحد مع تغير اخر رقم ؟ PeterGhattas082460 4 191 11-10-20, 11:02 PM
آخر رد: abdou
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 2 442 08-10-20, 05:07 AM
آخر رد: Ad Heart
  [VB.NET] عمل اتاش و تحديث قاعدة البيانات بعد التعديل على الحقول دون ضياع السجلات برمجيا larbihamri 4 228 06-10-20, 03:33 PM
آخر رد: larbihamri
  خطا ظهر لي بعد تغير النظام التشغيل ويندوز moh developer 1 112 02-10-20, 09:50 PM
آخر رد: abdou
  [VB.NET] هل تنصحوني بترك SqlServer و التوجه ل MySql sniperjawadino 4 187 01-10-20, 03:38 PM
آخر رد: sniperjawadino
  اضافة ملف pdf الى قاعدة بيانات sql server 2012 moh developer 5 214 25-09-20, 03:01 PM
آخر رد: moh developer
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 13 789 20-09-20, 08:46 PM
آخر رد: jam3h
  عمليات الاضافة والتعديل على قاعدة بيانات sql server 2012 kewely 2 204 19-09-20, 07:45 PM
آخر رد: kewely

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


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