-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
تلفن زدن داخل برنامه
مواد لازم
یک عدد: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
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
ساخت لينك
اگه تكراري بود ببخشيد
مواد لازم:
يك عدد 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
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
دادن تم 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 بزارين
از برنامه يه نسخه اجرايي بگيرين
حالا كيفش رو ببرين.
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
واقعا تاپیکه خوبیه ! منم تصمیم گرفتم کمکتون کنم . موفق باشید
انتقال فایل (MOVE )
Private Sub Command1_Click()
Name "c:\a.bat" As "D:\h.bat"
End Sub
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
کادر باز کردن پوشه (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
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
بازیابی سطر معینی از یک فایل
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
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
پنجره ی غیر قابل حرکت
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
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
جستجو با کمک توابع 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
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
ایجاد شاخه
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
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
پخش فايل صوتي
راحت ترين روش
كافيه يه 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 تا واستون اجرا كنه
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
با استفاده از كد زير در هر كجاي كد برنامه تون مي تونيد چك كنيد كه آيا كليد خاصي فشرده شده يا نه؟
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
-
نقل قول: نكاتي براي برنامه نويسان Visual Basic
و مهم ترین و آخرین نکته درباره ویبی 6 :
http://msdn.microsoft.com/en-us/vbrun/ms788708.aspx
bye bye black bird
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
برای اجرا نشدن 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
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
مهم ترین و آخرین نکته در مورد VB6 کار نمی کنه...
فکر می کنم اینو باید چک کنید : msdn.microsoft.com/en-us/vstudio/ms788708
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
نقل قول:
نوشته شده توسط
IamOverlord
سلام
صفحه بازنمیشه، یعنی خطای NotFound میدهد
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
نقل قول:
نوشته شده توسط
محسن واژدی
سلام
صفحه بازنمیشه، یعنی خطای NotFound میدهد
سلام لینک سالمه ، شاید بصورت مقطعی باز نشده ، دوباره امتحان کنید.
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
نقل قول:
نوشته شده توسط
محسن واژدی
سلام
صفحه بازنمیشه، یعنی خطای NotFound میدهد
سلام عليکم
لينک سالمه و باز ميشه
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
نقل قول:
نوشته شده توسط
MohammadGh2011
سلام عليکم
لينک سالمه و باز ميشه
سلام علیکم
بله حق با شماست، احتمالا سال قبل مشکل از IP بنده بود چرا که در کل امکان دسترسی به سایت مایکروسافت نداشتم و خطای Not found میداد البته پس از جواب آقای ترکاشوند وقتی با f.s تست کردم صفحه مشکلی نداشت،
در حال حاضر در سال جدید خوشبختانه مشکلی از این بابت وجود ندارد
موفق باشید
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
بله...
سايت هاي ديگري هم وجود دارند:www.vocation-soft.blogfa.com
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
سلام
من میخوام فایلی که ایجاد می کنم که یک فایل متن هست اسم فایل برابر گزینه ای باشد که در combo انتخاب شده
چی کار باید کنم؟
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
اینم یه سورسی که فایل متنی رو باز میکنه .. سیو میکنه و میتونید توش تغییر بدید ..مثل یه ورد پد سادس
یک فرم به نام 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]
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
دوستان عزیز و اساتید محترم
باتشکر از زحماتی که میکشید من در vb6 تازه کار هستم و برنامه حرفه ای نمیخوام بنویسم فقط برای فروشگاه بنک داری که داریم میخوام یه برنامه بنویسم که بتونم مقدار و مبلغ وارده و صادره را کنترل و گزارش گیری کنم بخاطر همین به سورس برنامه کتابخانه نیاز دارم همچنین اگر سورس کوچکی از طراحی یک فرم که به دیتا بیس اکسس لینکه و دکمه های از قبیل اولین رکورد رکورد قبلی و رکورد حدید و حذف رکورد و ویراش رکورد و .... و همچنین لیست ویو که بتونم از آن رکورد هایی که در دیتا بیسم هست را ببینم و برای ویرایش فراخوانی کنم (که معمولا در فرمها استفاده میشه) نیاز دارم اگر سورس دیگه ای هم دارید ممنون میشم برام ارسال کنید
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
یعنی هیچکس نیست که بتونه به من کمک کنه
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
وارد کردن اطلاعات خارج از دیتابیس به datagrid
سلام.کمک لطفا
من یه دیتا گرید دارم شامل 4 تا فیلد. که 3تا فیلد رو به دیتا بیس وصل کردم و اوکی
اما فیلد چهارم رو میخوام ابتدا یه سری محاسباتی روی فیلدهای دیگه انجام بدم و بعد نشون داده بشه
یعنی باید روبروی این کد چی بنویسم؟
=DataGrid1.Columns(4).DataField
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
نقل قول:
نوشته شده توسط
abbaszz
وارد کردن اطلاعات خارج از دیتابیس به datagrid
سلام.کمک لطفا
من یه دیتا گرید دارم شامل 4 تا فیلد. که 3تا فیلد رو به دیتا بیس وصل کردم و اوکی
اما فیلد چهارم رو میخوام ابتدا یه سری محاسباتی روی فیلدهای دیگه انجام بدم و بعد نشون داده بشه
یعنی باید روبروی این کد چی بنویسم؟
=DataGrid1.Columns(4).DataField
خودم تونستم D:
جهت استفاده بقیه دوستان:یک فیلد به بانک اطلاعاتی اضافه کردم اما خالی
هر کدوم از محاسبات مورد نظر رو روی لیبل ریختم.و لیبل رو به فیلد اضافه شده بانک اطلاعاتی وصل کردم از پنل پراپرتیس. به همین راحتی :)
-
نکاتی در مورد طراحی سیستم های تلفن گویا با VB6
سلام به همه
من یه مدت پیش یه برنامه با 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
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
سلام
میشه توضیحی درباره این متد بدید
Adodc1.Recordset.RecordCount
مرسی
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
تعداد رکوردهات رو میشموره از اسمش هم پیداس !
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
نقل قول:
نوشته شده توسط
setroyd
تعداد رکوردهات رو میشموره از اسمش هم پیداس !
ممنون از جوابت دوست عزیز
من یه برنامه نوشتم وبا adodc به اکسس متصل کردم واین کد رو استفاده کردم متاسفانه خطا میده
ولی همین برنامه رو با dataمینویسم از این کد خطا نمیگیره
به هرحال تشکر:متفکر:
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
این کد جواب میده بی مشکل !
MsgBox Adodc1.Recordset.RecordCount
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
نقل قول:
نوشته شده توسط
mina.6869
ممنون از جوابت دوست عزیز
من یه برنامه نوشتم وبا adodc به اکسس متصل کردم واین کد رو استفاده کردم متاسفانه خطا میده
ولی همین برنامه رو با dataمینویسم از این کد خطا نمیگیره
به هرحال تشکر:متفکر:
سلام
قبل از اين كد ADODC رو Refresh كردين ؟
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
گفتیم تاپیک پر باره ما هم بی نصیب نباشیم چند تا پست یادگاری هم ما بدیم :
با این برنامه می تونید رنگ های تصادفی تولید کنید شاید یه جا به درد همه بخوره
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Randomize
Shape1.BackColor = QBColor(Rnd() * 10)
End Sub
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
شاید خیلی از دوستان خواستن اطلاعاتی که از اکسل دارن رو بیارن توی 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
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
تابع fileDatetime :
تاریخ و زمان آخرین تغییرات یک فایل را نشان می دهد :
Private Sub Form_Load()
MsgBox FileDateTime("C:\foo.txt")
End Sub
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
در این قسمت هم قصد دارم آموزش هایی راجع به دستورات SQL برای کسانی که علاقه مند به دیتابیس هستند قرار بدم
دستور Select :
توسط این دستور ما اطلاعات مربوط به یک جدول را فراخوانی می کنیم
SELECT column_name,column_name
FROM table_name;
مثال :
SELECT * FROM Table1
------------------------------------------------------------------------------
دستور SQL SELECT DISTINCT :
گاهی اوقات ما در جداولمان فیلد های تکرای زیادی داریم و این فیلد ها در خروجی همگی نمایش داده خواهند شد مثلا در یک جدول ممکن است ستون شهر داشته باشیم در ان شهر های تکراری زیادی استفاده شده است برای جلوگیری از این فرایند از این دستور استفاده خواهیم کرد
SELECT DISTINCT City FROM Customers
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
ادامه آموزش دستورات 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'
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
ادامه آموزش دستورات 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'
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
در ضمن شاید دوستان در فراخوانی 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)
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
ادامه آموزش دستورات 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 باشه
-
نقل قول: نكاتی در مورد برنامه نويسي در Visual Basic
ادامه آموزش دستورات 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 به شما نشان خواهد داد .