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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 314 14-06-19, 03:03 PM
آخر رد: elgokr
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 172 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 338 04-06-19, 03:12 PM
آخر رد: elgokr
  [VB.NET] مثال اتصال VB بال SQl اسامه الهرماوي 2 147 17-05-19, 03:09 PM
آخر رد: اسامه الهرماوي
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 882 15-05-19, 08:24 PM
آخر رد: asemshahen5
  تغير شكل ايقونة الفورم في المشروع makky 1 134 11-05-19, 04:22 PM
آخر رد: elgokr
  [مثال] قاعدة بيانات SQL DK-x 2 158 03-05-19, 12:38 AM
آخر رد: اسامه الهرماوي
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 387 25-04-19, 09:26 AM
آخر رد: elgokr
  مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات ahmedfa71 0 108 24-04-19, 12:19 PM
آخر رد: ahmedfa71
  خطأ في عملية حفظ محتوى datagridview إلى جدول من قاعدة البيانات ahmedfa71 7 170 23-04-19, 02:17 AM
آخر رد: elgokr

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


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