نكاتی در مورد برنامه نويسي در Visual Basic

[earse+erse]

تلفن زدن داخل برنامه

مواد لازم
یک عدد:command
خصوصیات-----------------
اجراCaption=

یک عدد:text
خصوصیات-----------------
خالیtext=
این کد ها را در قسمت General وارد کنید.

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String,ByVal Comment As String) As Long

 

()Private Sub Command1_Click

tapiRequestMakeCall Text1.Text, "", "", ""

End Sub

[earse+erse]

ساخت لينك
اگه تكراري بود ببخشيد
مواد لازم:
يك عدد lablel

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As

String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

()Private Sub Form_Load

"Label1.Caption = "www.barnamenevis.org

End Sub

()Private Sub Label1_Click

Link Label1.Caption

End Sub

Public Function Link(ByVal URL As String) As Long

Link = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)

End Function

[earse+erse]

دادن تم Xp به برنامه
واسه اين كار Notepad رو باز كنين و كد زير رو توش كپي كنيد

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

<assemblyIdentity

version="1.0.0.0"

processorArchitecture="X86"

name="
Name"

type="win32"

/>

<dependency>

<dependentAssembly>

<assemblyIdentity

type="win32"

name="Microsoft.Windows.Common-Controls"

version="6.0.0.0"

processorArchitecture="X86"

publicKeyToken="6595b64144ccf1df"

language="*"

/>

</dependentAssembly>

</dependency>

</assembly>

و بجاي Name در كد بالا نام برنامه تون رو بزارين
فايل را با نام x.exe.MANIFEST ذخيره كنين x همون نام برنامه است
حالا توي VB برين و توي فرم يه ProgressBar بزارين
از برنامه يه نسخه اجرايي بگيرين
حالا كيفش رو ببرين.

[HjSoft]

واقعا تاپیکه خوبیه ! منم تصمیم گرفتم کمکتون کنم . موفق باشید

انتقال فایل (MOVE )

Private Sub Command1_Click()

    Name "c:\a.bat" As "D:\h.bat"

End Sub

[HjSoft]

کادر باز کردن پوشه (Folder Browse )

در ماوژول :

Public Const BIF_RETURNONLYFSDIRS = 1

Public Const BIF_DONTGOBELOWDOMAIN = 2

Public Const MAX_PATH = 260

Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long

Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long

'***

Public Type BrowseInfo

hWndOwner As Long

pIDLRoot As Long

pszDisplayName As Long

lpszTitle As Long

ulFlags As Long

lpfnCallback As Long

lParam As Long

iImage As Long

End Type

در فرم :

Private Sub Command1_Click()

Dim lpIDList As Long

Dim sBuffer As String

Dim szTitle As String

Dim BrowseInf As BrowseInfo

szTitle = "ÌÓÊÌæí Ú˜Ó"

With BrowseInf

.hWndOwner = Me.hWnd

.lpszTitle = lstrcat(szTitle, "")

.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN

End With

lpIDList = SHBrowseForFolder(BrowseInf)

If (lpIDList) Then

sBuffer = Space(MAX_PATH)

SHGetPathFromIDList lpIDList, sBuffer

'sBuffer value is the directory that the user choose from the dialog.

sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)

Text1.Text = sBuffer



End If

End Sub

[HjSoft]

بازیابی سطر معینی از یک فایل

Public Function readLine(ByRef strFilePath As String, ByRef nLine _

    As Integer) As String

    

    Dim NextLine As String

    Dim n As Integer

    FileNum = FreeFile

    Open strFilePath For Input As FileNum

    Do Until EOF(FileNum)

        Line Input #FileNum, NextLine

        n = n + 1

        If n = nLine Then readLine = NextLine

    Loop

Close

End Function

Private Sub Command1_Click()



Text1.Text = readLine("d:\a.bat", 3)

End Sub

[HjSoft]

پنجره ی غیر قابل حرکت

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _

ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _

ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const SC_MOVE = &HF010&

Private Const MF_BYCOMMAND = &H0&



Private Sub Command1_Click()

    lhSysMenu = GetSystemMenu(Me.hwnd, False)

    lRetVal = RemoveMenu(lhSysMenu, SC_MOVE, MF_BYCOMMAND)

End Sub

[HjSoft]

جستجو با کمک توابع API

'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)

'Add 1 Command Button, 4 Text Boxes and 1 List Box to your Form.

'At Run-Time, Enter the path that you want to start to search from it to Text1,

'Enter the file pattern to Text2 (like *.* or  *.exe), and press the button.

'List1 will be filled with all the matching files, Text3 will display the number of files found,

'And Text4 will display the total size of the files found.

'Insert this code to the module :



Private Declare Function FindFirstFile Lib "kernel32" Alias _

"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData _

As WIN32_FIND_DATA) As Long

Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _

(ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function GetFileAttributes Lib "kernel32" Alias _

"GetFileAttributesA" (ByVal lpFileName As String) As Long

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) _

As Long



Private Const MAX_PATH = 260

Private Const MAXDWORD = &HFFFF

Private Const INVALID_HANDLE_VALUE = -1

Private Const FILE_ATTRIBUTE_ARCHIVE = &H20

Private Const FILE_ATTRIBUTE_DIRECTORY = &H10

Private Const FILE_ATTRIBUTE_HIDDEN = &H2

Private Const FILE_ATTRIBUTE_NORMAL = &H80

Private Const FILE_ATTRIBUTE_READONLY = &H1

Private Const FILE_ATTRIBUTE_SYSTEM = &H4

Private Const FILE_ATTRIBUTE_TEMPORARY = &H100



Private Type FILETIME

dwLowDateTime As Long

dwHighDateTime As Long

End Type



Private Type WIN32_FIND_DATA

dwFileAttributes As Long

ftCreationTime As FILETIME

ftLastAccessTime As FILETIME

ftLastWriteTime As FILETIME

nFileSizeHigh As Long

nFileSizeLow As Long

dwReserved0 As Long

dwReserved1 As Long

cFileName As String * MAX_PATH

cAlternate As String * 14

End Type



Private Function StripNulls(OriginalStr As String) As String

If (InStr(OriginalStr, Chr(0)) > 0) Then

OriginalStr = Left(OriginalStr, _

InStr(OriginalStr, Chr(0)) - 1)

End If

StripNulls = OriginalStr

End Function





'Insert the following code to your form:



Private Function FindFilesAPI(path As String, SearchStr As String, _

FileCount As Integer, DirCount As Integer)

Dim FileName As String

Dim DirName As String

Dim dirNames() As String

Dim nDir As Integer

Dim i As Integer

Dim hSearch As Long

Dim WFD As WIN32_FIND_DATA

Dim Cont As Integer

If Right(path, 1) <> "\" Then path = path & "\"

nDir = 0

ReDim dirNames(nDir)

Cont = True

hSearch = FindFirstFile(path & "*", WFD)

If hSearch <> INVALID_HANDLE_VALUE Then

Do While Cont

DirName = StripNulls(WFD.cFileName)

If (DirName <> ".") And (DirName <> "..") Then

If GetFileAttributes(path & DirName) And _

FILE_ATTRIBUTE_DIRECTORY Then

dirNames(nDir) = DirName

DirCount = DirCount + 1

nDir = nDir + 1

ReDim Preserve dirNames(nDir)

End If

End If

Cont = FindNextFile(hSearch, WFD)

Loop

Cont = FindClose(hSearch)

End If

hSearch = FindFirstFile(path & SearchStr, WFD)

Cont = True

If hSearch <> INVALID_HANDLE_VALUE Then

While Cont

FileName = StripNulls(WFD.cFileName)

If (FileName <> ".") And (FileName <> "..") Then

FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * _

MAXDWORD) + WFD.nFileSizeLow

FileCount = FileCount + 1

List1.AddItem path & FileName

End If

Cont = FindNextFile(hSearch, WFD)

Wend

Cont = FindClose(hSearch)

End If

If nDir > 0 Then

For i = 0 To nDir - 1

FindFilesAPI = FindFilesAPI + FindFilesAPI(path & dirNames(i) _

& "\", SearchStr, FileCount, DirCount)

Next i

End If

End Function



Private Sub Command1_Click()

Dim SearchPath As String, FindStr As String

Dim FileSize As Long

Dim NumFiles As Integer, NumDirs As Integer

Screen.MousePointer = vbHourglass

List1.Clear

SearchPath = Text1.Text

FindStr = Text2.Text

FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)

Text3.Text = NumFiles & " Files found in " & NumDirs + 1 & _

" Directories"

Text4.Text = "Size of files found under " & SearchPath & " = " & _

Format(FileSize, "#,###,###,##0") & " Bytes"

Screen.MousePointer = vbDefault

End Sub

[HjSoft]

ایجاد شاخه

Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long

Private Sub Form_Load()

    'KPD-Team 2000

    'URL: http://www.allapi.net/

    'E-Mail: KPDTeam@allapi.net

    'create the directory 'c:\test\dir\hello\something\apiguide\'

    SHCreateDirectoryEx Me.hwnd, "c:\test\dir\hello\something\apiguide\", ByVal 0&

End Sub

[earse+erse]

پخش فايل صوتي

راحت ترين روش

كافيه يه Textbox بزارين و دو command Button به صورتي كه دومي كپي اولي باشه و آرايه درست بشه

اين كد ها رو تو جنرال فرمتون كپي كنين

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _

ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Dim isPlaying As Boolean

Dim Mp3File As String

Private Sub Command1_Click(Index As Integer)

Mp3File = Chr$(34) + Trim(Text1.Text) + Chr$(34)

Select Case Index

Case 0

mciSendString "open " + Mp3File, 0&, 0&, 0&

mciSendString "play " + Mp3File, "", 0&, 0&

isPlaying = True

Case 1

mciSendString "close " + Mp3File, 0&, 0&, 0&

isPlaying = False

End Select

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Command1(0).Caption = "Start"

Command1(1).Caption = "Stop"

Command2.Caption = "Exit"

End Sub

Private Sub Form_Unload(Cancel As Integer)

If isPlaying = True Then

mciSendString "close " + Mp3File, 0&, 0&, 0&

End If

End Sub

حالا آدرس فايل صوتي رو بنويسين تو Textbox تا واستون اجرا كنه

[earse+erse]

با استفاده از كد زير در هر كجاي كد برنامه تون مي تونيد چك كنيد كه آيا كليد خاصي فشرده شده يا نه؟

  
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'Key press API
  
Private Sub t_Timer()
  
If GetAsyncKeyState(vbKeyUp) <> 0 Then 
  
END
  
End If
  
END SUB
  

[JaguarXF]

و مهم ترین و آخرین نکته درباره ویبی 6 :

http://msdn.microsoft.com/en-us/vbrun/ms788708.aspx
bye bye black bird

[shahabbasic]

برای اجرا نشدن 2 بار از برنامه خود (برنامه در حال اجرا باشه و کاربر برای بار دوم بخواد برنامه رو اجرا کنه) از کد زیر استفاده کنید :

Private Sub Form_Initialize()

If App.PrevInstance = True Then

lomo = MsgBox("program now underway", vbInformation, "Warnnig")

close

Unload Me

End

End If

End Sub

[IamOverlord]

مهم ترین و آخرین نکته در مورد VB6 کار نمی کنه...
فکر می کنم اینو باید چک کنید : msdn.microsoft.com/en-us/vstudio/ms788708

[محسن واژدی]

مهم ترین و آخرین نکته در مورد VB6 کار نمی کنه...
فکر می کنم اینو باید چک کنید : msdn.microsoft.com/en-us/vstudio/ms788708

سلام
صفحه بازنمیشه، یعنی خطای NotFound میدهد

[M.T.P]

سلام
صفحه بازنمیشه، یعنی خطای NotFound میدهد

سلام لینک سالمه ، شاید بصورت مقطعی باز نشده ، دوباره امتحان کنید.

[MohammadGh2011]

سلام
صفحه بازنمیشه، یعنی خطای NotFound میدهد

سلام عليکم
لينک سالمه و باز ميشه

[محسن واژدی]

سلام عليکم
لينک سالمه و باز ميشه

سلام علیکم
بله حق با شماست، احتمالا سال قبل مشکل از IP بنده بود چرا که در کل امکان دسترسی به سایت مایکروسافت نداشتم و خطای Not found میداد البته پس از جواب آقای ترکاشوند وقتی با f.s تست کردم صفحه مشکلی نداشت،
در حال حاضر در سال جدید خوشبختانه مشکلی از این بابت وجود ندارد

موفق باشید

[l4dl4d]

بله...
سايت هاي ديگري هم وجود دارند:www.vocation-soft.blogfa.com

[farnoosh1]

سلام

من میخوام فایلی که ایجاد می کنم که یک فایل متن هست اسم فایل برابر گزینه ای باشد که در combo انتخاب شده

چی کار باید کنم؟

[majidbahrami]

اینم یه سورسی که فایل متنی رو باز میکنه .. سیو میکنه و میتونید توش تغییر بدید ..مثل یه ورد پد سادس
یک فرم به نام Form1
سه دکمه به نامهای cmdOpen , cmdSave , cmdClear
یک دیالوگ باکس به نام cd1
یک RitchTextBox به نام RTB1
[CODE]
Private Sub cmdClear_Click() RTB1.Text = "" End Sub Private Sub cmdOpen_Click() Dim strOpen As String With cd1 .Flags = &H2000 .DialogTitle = "Open" .Filter = "Ritch Text Box(.rtf)|*.rtf" .ShowOpen strOpen = .FileName End With Form1.RTB1.LoadFile strOpen End Sub Private Sub cmdSave_Click() Dim strSave As String With cd1 .Flags = &H2000 .DialogTitle = "Save" .Filter = "Ritch Text File (*.rtf)|*.rtf" .ShowSave strSave = .FileName End With Form1.RTB1.SaveFile strSave End Sub
[CODE]

[armin294]

دوستان عزیز و اساتید محترم
باتشکر از زحماتی که میکشید من در vb6 تازه کار هستم و برنامه حرفه ای نمیخوام بنویسم فقط برای فروشگاه بنک داری که داریم میخوام یه برنامه بنویسم که بتونم مقدار و مبلغ وارده و صادره را کنترل و گزارش گیری کنم بخاطر همین به سورس برنامه کتابخانه نیاز دارم همچنین اگر سورس کوچکی از طراحی یک فرم که به دیتا بیس اکسس لینکه و دکمه های از قبیل اولین رکورد رکورد قبلی و رکورد حدید و حذف رکورد و ویراش رکورد و .... و همچنین لیست ویو که بتونم از آن رکورد هایی که در دیتا بیسم هست را ببینم و برای ویرایش فراخوانی کنم (که معمولا در فرمها استفاده میشه) نیاز دارم اگر سورس دیگه ای هم دارید ممنون میشم برام ارسال کنید

[armin294]

یعنی هیچکس نیست که بتونه به من کمک کنه

[abbaszz]

وارد کردن اطلاعات خارج از دیتابیس به datagrid
سلام.کمک لطفا
من یه دیتا گرید دارم شامل 4 تا فیلد. که 3تا فیلد رو به دیتا بیس وصل کردم و اوکی
اما فیلد چهارم رو میخوام ابتدا یه سری محاسباتی روی فیلدهای دیگه انجام بدم و بعد نشون داده بشه
یعنی باید روبروی این کد چی بنویسم؟
=DataGrid1.Columns(4).DataField

[abbaszz]

وارد کردن اطلاعات خارج از دیتابیس به datagrid
سلام.کمک لطفا
من یه دیتا گرید دارم شامل 4 تا فیلد. که 3تا فیلد رو به دیتا بیس وصل کردم و اوکی
اما فیلد چهارم رو میخوام ابتدا یه سری محاسباتی روی فیلدهای دیگه انجام بدم و بعد نشون داده بشه
یعنی باید روبروی این کد چی بنویسم؟
=DataGrid1.Columns(4).DataField

خودم تونستم D:
جهت استفاده بقیه دوستان:یک فیلد به بانک اطلاعاتی اضافه کردم اما خالی
هر کدوم از محاسبات مورد نظر رو روی لیبل ریختم.و لیبل رو به فیلد اضافه شده بانک اطلاعاتی وصل کردم از پنل پراپرتیس. به همین راحتی :)

[hamed_basic]

سلام به همه
من یه مدت پیش یه برنامه با KD نوشتم (ورژن 4)
یه چند جایی مشکل داشتم که به بدبختی حلش کردم
حالا می خوام یه چند تا از تجربیات اون رو بزارم که اگه کسی مشکل مشابهی داشت مشکلش حل شه

اول یه سری اطلاعات:
من تو محیط vb6 برنامه رو نوشتم
واسه 16 خط
از کارت های دیالوجیک که میشه گفت بهترین انتخاب واسه سیستم تلفن گویاست استفاده کردم (البته کارتها الان خیلی گرون شدن)
مدل کارتهای من D/4PCI & D/4PCIU هست البته میشه از هرجور کارتی حتی مودم استفاده کرد اما فکر نکنم هیچ ...ی بخواد 8 یا 16 تا مودم روی کامپیوترش نصب کنه

اگه از کارت های دیالوجیک استفاده می کنید :
به ترتیب کارای زیر رو انجام بدید
1 - نصب کارت ها روی مادربرد
2 - نصب برنامه Dialogic System Release 5.1.1 (الان ورژن 6 هم هست اما از TAPI پشتیبانی نمی کنه و باید فقط همین ورژن نصب شه)
3 - نصب برنامه Dialogic System Release 5.1.1 Feature Pack 149
4 - نصب Dialogic Point Release For D/4PCIUF
5 - نصب Dialogic System Release 5.1.1 Service Pack 1
6 - تنظیم برنامه DCM برای لود شدن در استارت آپ ویندوز و نصب Dialogic Wav Driver For TAPI
7 - .... یه سری تنظیمات دیگه هم داره که اگه نتونستید پیداشون کنید بگید اونا رو هم بزارم
8 - نصب KDTELE Tools V4.0.33 و کرک آن

نکته ها :
تحت هیچ شرایطی از ریموت واسه نوشتن این برنامه استفاده نکنید ، من برد ها رو روی دسکتاپ نصب کرده بودم و سعی میکردم با لپ تاپ و Remote Desktop Connection این برنامه رو بنویسم ولی پیغام Invalid Sound Device ID was passed as argumentرو می گرفتم که مشخص شد با اینکه ریموته ولی واسه پخش صدا می خواد از روی لپتاپ درایور Dialogic wav Driver رو بیاره که خطا می داد . البته کلی بدبختی دیگه توی ریموت داره و از این سیستم استفاده نکنید .

سعی کنید اگه امکانش رو دارید غیر از این برد ها یک مودم معمولی هم نصب کنید چون واسه تنظیمات صدا راحت تر باهاش کار می کنید
فرمت فایل های wav باید این ها باشه و نه چیز دیگه :
"PCM 8,000 Hz - 16 bit - Mono" format or the "KDPCM 8,000 Hz - 16 bit - Mono"
wave format compatible with most of Dialogic cards is the "PCM 11,025 Hz - 8 bit - Mono" فقط مخصوص دیالوجیک
"KDPCM 11,025 Hz - 8 bit - Mono", and "KDPCM 8,000 Hz - 8 bit - Mono"

سعی کنید یه WAVE EDITOR داخل برنامه داشته باشید که اگه خواستید از چند نوع فرمت استفاده کنه خود برنامه تون انجامش بده
باز هم اگه پیغام خطای WAV_BAD_FORMAT رو دیدید یه صدا از طریق تلفن ضبط کنید و مشخصات اون رو از برنامه wav editor در بیارید و بقیه صداهاتون رو طبق اون مشخصات ضبط کنید
حتما توی CALL LOG برنامه تون (البته اگه داشته باشید) از CALLHANDLE استفاده کنید .

اگه تعداد خطوط برنامه تون ثابت نیست و میخواید واسه هر مشتری تعداد خط به خصوصی استفاده کنید از Dynamic Creation استفاده کنید (مثال این رو توی EXCELETELمیتونید پیدا کنید )
اگه می خواید خطوط تون توی دیتابیس ذخیره بشه و واسه هر بار اجرای برنامه قرار نباشه Line Selection انجام بدید حتما دو گزینه LineDeviceName و LineID رو ذخیره کنید .

واسه تست برنامه می تونید از شبیه ساز های نرم افزاری استفاده کنید (قرار نیست من من خنگ با موبایلتون تست کنید که بعدش کلی قبض واستون بیاد )
شبیه ساز ها رو توی یه تاپیک مجزا توضیح دادم

من نکته دیگه ای به ذهنم نمی رسه اما اگه سوالی بود در خدمتم
ولی خودمونیم تا این سیستم تموم شد پدرم دراومد حتی رفتم VC++‎‎ یاد گرفتم و باهاش DLL درست کردم که بعدش فهمیدم اصلا نیاز نبود .
یه مجموعه کامل از صداهای ضبط شده به صورت wav هم دارم که حجمش خیلی زیاده اگه خواستید یه جوری بهتون می رسونم

امیدوارم این پست مفید باشه ، اگه مشکلتون حل شد لایک فراموش نشه !!! همون تشکر


----------------------------------------------------------------------------------------------------------------------
Hamed Mirzaei
MCSE 2003
MCSD/MCAD 2000
MCDBA 2000
CIW Webmaster
msws{DOT}biz{AT}gmail{DOT}com

[mina.6869]

سلام
میشه توضیحی درباره این متد بدید
Adodc1.Recordset.RecordCount
مرسی

[setroyd]

تعداد رکوردهات رو میشموره از اسمش هم پیداس !

[mina.6869]

تعداد رکوردهات رو میشموره از اسمش هم پیداس !

ممنون از جوابت دوست عزیز
من یه برنامه نوشتم وبا adodc به اکسس متصل کردم واین کد رو استفاده کردم متاسفانه خطا میده
ولی همین برنامه رو با dataمینویسم از این کد خطا نمیگیره
به هرحال تشکر

[setroyd]

این کد جواب میده بی مشکل !

MsgBox Adodc1.Recordset.RecordCount

[vbhamed]

ممنون از جوابت دوست عزیز
من یه برنامه نوشتم وبا adodc به اکسس متصل کردم واین کد رو استفاده کردم متاسفانه خطا میده
ولی همین برنامه رو با dataمینویسم از این کد خطا نمیگیره
به هرحال تشکر

سلام
قبل از اين كد ADODC رو Refresh كردين ؟

[m.4.r.m]

گفتیم تاپیک پر باره ما هم بی نصیب نباشیم چند تا پست یادگاری هم ما بدیم :

با این برنامه می تونید رنگ های تصادفی تولید کنید شاید یه جا به درد همه بخوره

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

Randomize

Shape1.BackColor = QBColor(Rnd() * 10)

End Sub

[m.4.r.m]

شاید خیلی از دوستان خواستن اطلاعاتی که از اکسل دارن رو بیارن توی Datagrid و در داخل دیتابیس خودشون ذخیره کنند این برنامه این کارو برای شما انجام میده

Private Sub displayExcelInDataGrid()

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Dim sconn As String

Dim sFile As String



CmdOpen.ShowOpen

sFile = CmdOpen.FileName

rs.CursorLocation = adUseClient

rs.CursorType = adOpenKeyset

rs.LockType = adLockBatchOptimistic





sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile

rs.Open "SELECT * FROM [sheet1$]", sconn

Set DataGrid1.DataSource = rs

End Sub

[m.4.r.m]

تابع fileDatetime :
تاریخ و زمان آخرین تغییرات یک فایل را نشان می دهد :

Private Sub Form_Load()

MsgBox FileDateTime("C:\foo.txt")

End Sub

[m.4.r.m]

در این قسمت هم قصد دارم آموزش هایی راجع به دستورات SQL برای کسانی که علاقه مند به دیتابیس هستند قرار بدم

دستور Select :

توسط این دستور ما اطلاعات مربوط به یک جدول را فراخوانی می کنیم

SELECT column_name,column_name

FROM table_name;

مثال :

SELECT * FROM Table1

------------------------------------------------------------------------------
دستور SQL SELECT DISTINCT :

گاهی اوقات ما در جداولمان فیلد های تکرای زیادی داریم و این فیلد ها در خروجی همگی نمایش داده خواهند شد مثلا در یک جدول ممکن است ستون شهر داشته باشیم در ان شهر های تکراری زیادی استفاده شده است برای جلوگیری از این فرایند از این دستور استفاده خواهیم کرد

SELECT DISTINCT City FROM Customers

[m.4.r.m]

ادامه آموزش دستورات SQL :

استفاده از کلمه کلیدی Where در دستور Select :

با این دستور شما اطلاعات جدول رو با یک شرط فراخوانی می کنید مثال : اطلاعات جدول مشتریان را می خواهیم نشان دهیم به شرطی مشتریان مربوط به شهر تهران باشند :

SELECT * FROM Customers WHERE City="Tehran"

استفاده از کلمات کلیدی AND و OR در دستور Select :

با این دستورات شما می توانید اطلاعات یک جدول رو نمایش دهید به شرطی عمگر AND یا OR در آن صدق کند . مثال : می خواهیم اطلاعات جدول مشتری را نشان دهیم به شرطی که مشتری در شهر تهران و در کشور ایران باشد :

SELECT * FROM Customers

WHERE Country='Iran'

AND City='Tehran'

چون از عملگر AND استفاده کرده ایم پس باید هر دو عبارت برابر TRUE باشد تا نمایش داده شود یعنی مشتری هم در کشور ایران باشد و هم در تهران بر عکس این قضیه در عبارت OR صدق می کند .

SELECT * FROM Customers

WHERE Country='Iran'

OR City='Tehran'

[m.4.r.m]

ادامه آموزش دستورات SQL :

استفاده از دستور Order By که شکل کلی این دستور به صورت زیر است :

SELECT column_name,column_name

FROM table_name

ORDER BY column_name,column_name ASC|DESC

کلمات کلیدی ASC و DESC به ترتیب به معنی : نزولی و صعودی است

اکثرا در برنامه ها استفاده می شود مثلا می خواهیم اطلاعات مربوط به جدول مشتری را نمایش دهیم و اطلاعات ما با نام کشور ها مرتب سازی شده باشد

SELECT * FROM Customers

ORDER BY Country

با این دستور اطلاعات از A-Z مرتب سازی مشوند که در صورت مشخص نکردن ASC | DESC به صورت پیشرفض عبارت ASC استفاده می شود

----------------------------------------------------------------------
نگاهی جامع به دستورات Insert , Delete , Update

با این دستورات می توانیم اطلاعات را به دتابیس ارسال ، ذخیره و یا حذف نمائیم

شکل کلی دستور Insert Into :

INSERT INTO table_name

VALUES (value1,value2,value3,...)

INSERT INTO table_name (column1,column2,column3,...)
VALUES (value1,value2,value3,...)

در ساختار اولی می توانید اطلاعات تمام ستون های دیتابیس رو پر نمائید
در ساختار دوم می توانید فقط با ذکر نام ستون های دیتابیس اطلاعات را پر نمائید ( مثلا می خواهید فقط در جدول مشتری نام و نام خانوادگی فرد را ارسال کنید ) .

INSERT INTO Customers (CustomerName, CustomerFamily)

VALUES ('Ali','Ershadi')

شکل کلی دستور Update :

UPDATE Customers

SET ContactName='Ali', City='Tehran'

حالا بعضی مواقع می خوایم اطلاعات فرد رو به اصطلااح Edit کنیم که اون هم با این دستور به این شکل انجام میشه :

UPDATE Customers

SET ContactName='Alireza', City='Tehran'

WHERE CustomerName='Ali' 

شکل کلی دستور Delete :

DELETE FROM table_name

WHERE some_column=some_value

DELETE FROM Customers

WHERE CustomerName='Alireza' AND City='Tehran'

[m.4.r.m]

در ضمن شاید دوستان در فراخوانی Query ها دستورات SQL در ویزوال بیسیک به این سوال برسند که حالا ما این هارو فهمیدیم چطوری در ویژوال بیسیک از اینها استفاده کنیم ( قابل توجه دوستان حرفه ای ، این آموزش مخصوص دوستان و برنامه نویسان اماتور است ) که با این کد می توانید از دستورات استفاده نمائید .

Dim rs as new Adodb.recordset

Dim con as new adodb.connection

dim sql as string 



sql = "SELECT * FROM Customers WHERE City='Tehran'"

rs.cursurlocation = aduseclient

con.execute (sql)

[m.4.r.m]

ادامه آموزش دستورات SQL :

یک دستور بهتون معرفی می کنم با عنوان Select Top

با این دستور شما می توانید تعداد سطر های محدودی از جدول را انتخاب کنید که Query های مختلفی هم وجود دارد مثلا می خواهیم 2 ردیف از جدول مشتری را نشان دهیم .

SELECT TOP 2 * FROM Customers

SELECT * FROM Customers WHERE CustomerID <=2

که هر دو ستور یک کار را انجام خواهند داد .

دستور Like :

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

شکل کلی دستور :

SELECT column_name(s)

FROM table_name

WHERE column_name LIKE pattern;

شکل استفاده از دستور : ( تمامی شهر های مربوط به جدول مشتری را نشان بده به شرطی که اول اسم شهر ها با s شروع شده باشد )

SELECT * FROM Customers

WHERE City LIKE 's%'

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

این هم یک دستور دیگه از Like : ( شهر هایی رو نشون بده که بین شهر ها کلمه land نباشه )

SELECT * FROM Customers

WHERE Country NOT LIKE '%land%';

حرف % یعنی هر چیزی
حرف _ به جای % هم میتوان در Like استفاده کرد : مثال :

SELECT * FROM Customers

WHERE City LIKE 'L_n_on';

تمامی شهر هایی رو نشون میده که حروف L n on ثابت بوده و حروفی که نداره رو بزاره مثلا شهر London

دستور دیگر از Like

SELECT * FROM Customers

WHERE City LIKE '[bsp]%';

این دستور میگه شهر هایی رو نشون بده که اولش حتما با حروف b s p باشه

[m.4.r.m]

ادامه آموزش دستورات SQL :

دستور IN :

این دستور تقریبا شبیه به دستور Like هست اما ثابت عمل می کند . به مثال نگاه کنید

SELECT * FROM Customers

WHERE City IN ('Tabriz','Shiraz');

میگه لیست مشتری هایی رو نشون بده که حتما در شهر تبریز و شیراز باشن

دستور BETWEEN :

این دستور هم از جدول محصولات اجناسی رو نشون میده که قیمت آنها بین 10 و 20 باشه

SELECT * FROM Products

WHERE Price NOT BETWEEN 10 AND 20;

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

یه مثال دیگه

SELECT * FROM Products

WHERE ProductName BETWEEN 'C' AND 'M';

-------------------------------------------------------------------------------------------------
دستور Alias :

کاربرد این دستور زمانی است که ما می خواهیم اطلاعات یک ستون را نمایش دهیم با یک نام مستعار . به مثال دقت کنید :

SELECT CustomerName AS Moshtari

FROM Customers

اطلاعات CustomerName را با نام سر ستون Moshtari به شما نشان خواهد داد .