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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] جملة اتصال بملف اكسيل ٢٠٠٣ بكلمة مرور Mr.H 0 32 اليوم, 01:07 AM
آخر رد: Mr.H
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] مشكلة اتصال مفتوح dell 2 150 12-03-24, 09:46 PM
آخر رد: dell
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net AmeenRashed 21 1,198 30-12-23, 03:47 PM
آخر رد: Taha Okla
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,605 10-12-23, 12:53 PM
آخر رد: محمد بن عطية

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


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