oosta Excel اوستا اکسل

فاز یک --> فلوچارت

oosta Excel اوستا اکسل

فاز یک --> فلوچارت

oosta Excel اوستا اکسل

در این سایت ما سعی داریم همه چیز درباره برنامه سازی و کار با محیط های مختلف اکسل داشته باشیم
ما از آموزش فلوچارت شروع کردیم که مبنا و مبانی اولیه است.

فلوچارت ها معمولا با جواب هستند
در مسایل و فلوچارت هایی که جواب ندارند می توانید مشارکت نمایید.

از شهریور ماه 1400 یکسری پروژه های کاربردی در قالب برنامه بفروش میرسد

۱ مطلب با موضوع «بانک اطلاعاتی :: MySQL» ثبت شده است


اکسل به سادگی می تواند به پایگاه داده MySQL دسترسی داشته و عملیات های مختلف را برای خواندن، ایجاد، تغییر و حذف داده ها انجام دهد.

بدین منظور لازم است که ابتدا برنامه به پایگاه داده متصل شود و دستورات تراکنشی برای دسترسی و ویرایش اطلاعات ارسال شود.


Public cn As ADODB.Connection

Public rs As ADODB.Recordset

Public strSql As String

'Connection module:

Public Function connectDB()

    Dim strServer_Name As String

    Dim strDB_Name As String

    Dim strUser_ID As String

    Dim strPassword As String

    With Sheet2

        strServer_Name = .Range("B2").Value

        strDB_Name = .Range("B3").Value

        strUser_ID = .Range("B4").Value

        strPassword = .Range("B5").Value

    End With

    Set cn = New ADODB.Connection

    Set rs = CreateObject("ADODB.Recordset") 'EBGen-Daily

    Server_Name = strServer_Name

    Database_Name = strDB_Name ' Name of database

    User_ID = strUser_ID 'id user or username

    Password = strPassword 'Password

    Port = "3306"

    conStr = "DRIVER={MySQL ODBC 5.2 Unicode Driver};SERVER=" & _

            Server_Name & ";PORT=" & Port & ";DATABASE=" & Database_Name & _

            ";UID=" & User_ID & "; PWD=" & Password & "; Option=3"

    cn.Open conStr

End Function


'

'Sub module():

خواندن از دیتابیس

Sub request()

    Dim fTimeEnd As Date

    Dim fTimeStart As Date

    Call connectDB

    fTimeStart = Timer

    strSql = "SELECT * FROM tb1"  ' tb1 نام جدول

    Set rs = New ADODB.Recordset

    rs.Open strSql, cn, adOpenDynamic

    With Sheet1.Range("A1")

        .ClearContents

        .CopyFromRecordset rs

    End With

    fTimeEnd = Timer

    Sheet1.Cells(1, 3) = Format$((fTimeEnd - fTimeStart) * 100!, "0.00 "" Centiseconds Elapsed""")

    cn.Close

    Set cn = Nothing

End Sub

سروری که از آن استفاده می کنید لازم است پورت 3306 باز باشد

و اجازه دسترسی ریموت به دیتابیس را در پنل هاست بدهید

ابتدا درایور اتصال به MySQL را بر روی ویندوز نصب نمایید 

 درایور X64 را از دریافت کنید

عنوان: درایور اتصال به mysql
حجم: 4.21 مگابایت
توضیحات: درایور اتصال به mysql 

لطفا سوالات خود را ارسال نمایید تا پاسخ لازم را بفرستیم

در مثال فوق زمان خواندن را هم محاسبه می کند تا بتوانید با مقایسه سرورهای مختلف، بهترین انتخاب را داشته باشید.

سرور پیشنهادی ما که پورت 3306 باز دارد، mashhadhost.com  می باشد.

جلیل عباسی سیوکی
۰۸ اسفند ۹۴ ، ۱۹:۲۱ ۰ نظر