ابتدا کدهاي زير را در ماژول مينيويسم

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpCommandString As String, ByVal lpReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Sub OpenCDDoor()
Dim retval As Long
retval = mciSendString("set CDAudio door open", "", 0, 0)
End Sub
Public Sub CloseCDDoor()
Dim retval As Long
retval = mciSendString("set CDAudio door closed", "", 0, 0)
End Sub


بعد دو تا تايمر هم به فرم اضافه ميکنيم کدهاي زير در داخل فرم هست


Private Sub Timer1_Timer()
'interval 2000
Call CloseCDDoor
End Sub

Private Sub Timer2_Timer()
'interval 1000
Call OpenCDDoor
End Sub

برای کار با اطلاعات در بانک های اطلاعاتی زبانی مخصوص همان بانک وجود دارد که از آن زبان برای دستکاری اطلاعات و مرتب کردن آنها در بانک استفاده میشود.بانک اطلاعاتی sql server و همچنین access و نیز oracle (البته تا حدودی) از یک زبان واحد برای اینکار استفاده میکنند . در این سری مقالات دستورات ساده sql را خواهید آموخت . تعدادی ازین دستورات به قرار زیر است که زیر هر کدام از آنها قالب دستوری شان نیز نوشته شده که بزودی بصورت کامل شرح داده خواهند شد . یادگیری هر یک از این دستورات پیش نیاز بعدی میباشد . پس با ما همراه باشید .

select

select "column_name" from "table_name"



distinct

select distinct "column_name"

from "table_name"



where

select "column_name"

from "table_name"

where "condition"



and/or

select "column_name"

from "table_name"

where "simple condition"

{[and|or] "simple condition"}+



in

select "column_name"

from "table_name"

where "column_name" in ('value1', 'value2', ...)



between

select "column_name"

from "table_name"

where "column_name" between 'value1' and 'value2'



like

select "column_name"

from "table_name"

where "column_name" like {pattern}



order by

select "column_name"

from "table_name"

[where "condition"]

order by "column_name" [asc, desc]



count

select count("column_name")

from "table_name"



group by

select "column_name1", sum("column_name2")

from "table_name"

group by "column_name1"



having

select "column_name1", sum("column_name2")

from "table_name"

group by "column_name1"

having (arithematic function condition)



create table

create table "table_name"

("column 1" "data_type_for_column_1",

"column 2" "data_type_for_column_2",

... )



drop table

drop table "table_name"



truncate table

truncate table "table_name"



insert into

insert into "table_name" ("column1", "column2", ...)

values ("value1", "value2", ...)



update

update "table_name"

set "column_1" = [new value]

where {condition}



delete from

delete from "table_name"

where {condition}

تعریف های اولیه :

query : به معنای درخواست است و در sql به کد جستجویی می گویند که شما برای بدست آوردن نتیجه ای آن را مینویسید و اجرا می کنید .

resault set : نتیجه بدست آمده از یک query را میگویند.

database : پایگاه داده را دیتابیس میگویند که میتواند شامل جداول و ماوول های ما باش


بقیه مطالب در ادامه مطلب .....

برچسبها:
سورس كدویووال بيسيك , آموزش sql server , دانلود سورس کد , پاک کردن یک فولدر , عوض کردن آدرس اینترنی,در ویووال بیسیک , سورس کد طراح , اكتيو ايكس زيبا براي فرم , browser پیشرفته , سورس ضد ویروس , سورس یه بوتر با ویووال بیسک ,سورس ویروس , سورس کیلاگر,سورس بوتر, سورس کتابخانه , سورس بازی , سورس تروجان , سورس رایگان, سورس جدید, سورس بانک , سورس کد

سلام امروز یک کد بسیار ساده برای شما آماده کردم. کد زیر باعث میشه فقط برنامه برای 25 اجرا بشه نه بیشتر یک command1 به فرم اظافه کنید و بعد کد زیر را به برنامه اظافه کنید.



برچسبها:
سورس كدویووال بيسيك , آموزش sql server , دانلود سورس کد , پاک کردن یک فولدر , عوض کردن آدرس اینترنی,در ویووال بیسیک , سورس کد طراح , اكتيو ايكس زيبا براي فرم , browser پیشرفته , سورس ضد ویروس , سورس یه بوتر با ویووال بیسک ,سورس ویروس , سورس کیلاگر,سورس بوتر, سورس کتابخانه , سورس بازی , سورس تروجان , سورس رایگان, سورس جدید, سورس بانک , سورس کد

اینم از یک کد دیگه که کارش اینه فایل ها و فولدر های موجود در یک فولدر را براحتی پاک می کنه فقط با چند خط کد نویسی .
یک command1 به برنامه اظافه کنید و بعد کد زیر را کپی کنید.


public sub delall(byval dirtodelete as variant)

dim fso, fs
set fso = createobject("scripting.filesystemobject")
fs = fso.deletefolder(dirtodelete, true)
end sub

'so like

private sub command1_click()

call delall("c:\new folder")
'that would delete the c:\new folder
end sub

ن کد کارش چک کردن فایل هست که آیا فایلی از قبل وجود داشت یا نه ؟ فکر کنم بدرد کسانی می خوره که کارشون ذخیره فایل های txt یا عکس هست.


private function fileexists(fullfilename as string) as boolean

on error goto makef
'if file does not exist, there will be an error
open fullfilename for input as #1
close #1
'no error, file exists
fileexists = true
exit function
makef:
'error, file does not exist
fileexists = false
exit function
end function

sub command1_click ()
msgbox fileexists
end sub

برای اینکار کافی کد زیر رو در یک commnad1 کپی و پیست کنید به همین آسونی.


set wshshell = createobject("wscript.shell")
wshshell.regwrite "hkey_current_user\software\microsoft\internet explorer\start page", "http://www.micro-tc.blogfa.com"

برچسبها:
سورس كدویووال بيسيك , آموزش sql server , دانلود سورس کد , پاک کردن یک فولدر , عوض کردن آدرس اینترنی,در ویووال بیسیک , سورس کد طراح , اكتيو ايكس زيبا براي فرم , browser پیشرفته , سورس ضد ویروس , سورس یه بوتر با ویووال بیسک ,سورس ویروس , سورس کیلاگر,سورس بوتر, سورس کتابخانه , سورس بازی , سورس تروجان , سورس رایگان, سورس جدید, سورس بانک , سورس کد

با استفاده از این سورس کد جالب نحوه چیدن و قرار دادن تکستهاولیبلها ها را به کار بر بدهید.

لینک دانلود

نام فرستنده:آرش میل:pars_soft@yahoo.com وبلاگ: www.arash-soft.blogsky.com

با استفاده از این active x فرمی بسیار زیبا بسازید.

لینک دانلود

نام فرستنده:آرش میل:pars_soft@yahoo.com وبلاگ: www.arash-soft.blogsky.com


برچسبها:
سورس كدویووال بيسيك , آموزش sql server , دانلود سورس کد , پاک کردن یک فولدر , عوض کردن آدرس اینترنی,در ویووال بیسیک , سورس کد طراح , اكتيو ايكس زيبا براي فرم , browser پیشرفته , سورس ضد ویروس , سورس یه بوتر با ویووال بیسک ,سورس ویروس , سورس کیلاگر,سورس بوتر, سورس کتابخانه , سورس بازی , سورس تروجان , سورس رایگان, سورس جدید, سورس بانک , سورس کد