دنیای سورس کد ویژوال بیسیک

شاید برای شما پیش اومده باشه که یک برنامه رو مثلا دفترچه تلفن نوشته باشید و بخواهید این برنامه روی کامپیوتر یکی از دوستانتان اجرا کنید زمانی که برنامه دفترچه تلفن رو اجرا می کنید با یک پیغام مواجه میشید که میگه دیتابیس مورد یافت نشد خوب این اتفاق زمانی می افته که شما موقع اتصال دادن دیتابیس به Adodc  از منوی Properties گزینه ConnectionSting یا از گزینه Custom استفاده کرده باشید .!!! برای همین خوده کامپونت adodc یک فایل در رو ایجاد می کنه و مسیر فایل دیتابیس رو توش ذخیره می کنه و هر بار که برنامه رو اجرا می کنید کامپونت adodc مسیر فایل دیتا بیس رو از فایل خونده و به خودش ارتباط میده . و زمانی که برنامه رو اجرا می کنید هیچ پیغام خطایی رخ نمیده . اما همین که این برنامه رو بر روی کامپیوتر غیر  کامپیوتر خودتون اجرا می کنید خطا میده برای جلوگیری از این خطا می تونید از کد زیر استفاده کنید . اول یک Adodc1 به پروژه خودتون اضافه کنید و کد زیر رو در قسمت فرم لود قرار بدید.

 

'   Code:

'   Code Ro Dar Form_Load Copy Konid

 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path +  "\DataBase.mdb" + ";Persist Security Info=False"
 Adodc1.RecordSource = "select * from TableName "
 Adodc1.Refresh

 

'    End Code

 

 

برای این کار کد زیر را وارد کنید.

 

Private Sub Command1_click()
Dim search as variant
sstr = InputBox("Enter Author to Search") ' Display a Input Box Window
data1.recordset.findfirst "Author='" & sstr & "'" ' Look for the record that has a value "sstr"
If trim(sstr) <> "" then
   If data1.recordset.nomatch then 'check if the record exist
      MsgBox "No record Exist"
      Command1.setfocus
   else
      data1.recordsource = "SELECT * FROM TableName WHERE Author='" & sstr & "'" ' Display all the Records that has a Value of "sstr"
      data1.refresh ' refresh the DBGRID or MSFLEXGRID
   End if
End if
End Sub

 

این سورس مربوط به یک الگوریتم هست که به آن پیترسون می گویند . این کد به زبان c و ++ c هست

که براتون گذاشتم تا ازش لذت ببرید . برای مشاهده کد به ادامه مطلب بروید...

ادامه مطلب

خوب با این کد هم می تونید یک کامپیوتر را از راه دور در یک شبکه رو خاموش کنید اول api زیر رو در

قسمت General وارد کنید و بعد کد های مربوطه رو در یک دکمه قرار دهید و در جایی که نوشته

Pc Name  نام کامپیوتر رو که می خواین خاموش بشه رو وارد کنید موفق باشید .

 Api Code:

 Private Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias _
 "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As _
 String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long _
 , ByVal bRebootAfterShutdown As Long) As Long

 

 Source Code:

 ltimeout = 0

 retval = InitiateSystemShutdown(Trim("PC Name"), "", ltimeout, True, True)

 If retval <> 0 Then

 MsgBox "PC Is Shutdown..."

 End IF