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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ في عملية حفظ محتوى datagridview إلى جدول من قاعدة البيانات ahmedfa71 6 66 منذ 7 ساعة مضت
آخر رد: ahmedfa71
  كيفية ربط و فصل اتصال SSH mohammadsaeed01 3 52 20-04-19, 06:18 AM
آخر رد: elgokr
  [نقاش] قاعدة البيانات sdf اسامه الهرماوي 10 150 10-04-19, 12:31 PM
آخر رد: elgokr
  [VB.NET] افضل نوع قاعدة بيانات للشبكات tarek 3 104 09-04-19, 02:26 AM
آخر رد: elgokr
  حفظ ملفات من نوع txt في قاعدة بيانات أكسس sads 8 157 07-04-19, 05:07 AM
آخر رد: elgokr
  [VB.NET] كيف يمكنني معرفة حجم قاعدة بيانات بالفيجول دوت نت issatiger 2 355 06-04-19, 12:48 PM
آخر رد: yasser54631
  [ تم الحل ] فتح قاعدة البيانات من خلال أداة OpenFileDialog sads 8 174 05-04-19, 03:17 AM
آخر رد: elgokr
  [VB.NET] محتاج التعديل على الكود backgroundworker mysql progressbar dubai.eig 6 148 02-04-19, 10:16 AM
آخر رد: dubai.eig
  اضافة حقل نعم لا بالكود في قاعدة اكسس atefkhalf2004 13 269 02-04-19, 05:16 AM
آخر رد: elgokr
Information Test DataBase mysql Connection YousefOkasha 1 76 30-03-19, 04:49 PM
آخر رد: elgokr

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


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