Ali0Boy
سه شنبه 17 فروردین 1389, 20:07 عصر
سلام دوستان من یکبار دیگر هم تاپیکی با این عنوان ایجاد کردم ولی یکی از اعضای فعال گفت که بگرد پیداش میکنی و من اون تاپیک رو حذف کردم و چیزی هم نیافتم.
دوستان عزیز من من از کدهای زیر هم برای این کار استفاده کردم اما چطوری پسوردش رو بزنیم که جواب بده؟!
این مثال کدهای اتصال:
Dim Cnn As New ODODB.Connection
Dim Rst As New ODODB.Recordset
Cnn.Open ( "Provider=Microsoft.Jet.OLEDB.4.0 ; DataSource= & App.Path & \DataBaseName")
Rst.Open(TableName,Cnn,addOpenKeyset,adLockOptimis tic,adCmdTable
.
.
.
Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
حالا اگه کسی هم میدونه قبلا ایجاد شده چنین تاپیکی اول آدرس اون تاپیک رو بده و سپس اینجا بگه حذفش کن!!!!!! :ناراحت:
ممنون میشم اگه کمکم کنید. خیلی خیلی فوریه... :تشویق:
دوستان عزیز من من از کدهای زیر هم برای این کار استفاده کردم اما چطوری پسوردش رو بزنیم که جواب بده؟!
این مثال کدهای اتصال:
Dim Cnn As New ODODB.Connection
Dim Rst As New ODODB.Recordset
Cnn.Open ( "Provider=Microsoft.Jet.OLEDB.4.0 ; DataSource= & App.Path & \DataBaseName")
Rst.Open(TableName,Cnn,addOpenKeyset,adLockOptimis tic,adCmdTable
.
.
.
Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
حالا اگه کسی هم میدونه قبلا ایجاد شده چنین تاپیکی اول آدرس اون تاپیک رو بده و سپس اینجا بگه حذفش کن!!!!!! :ناراحت:
ممنون میشم اگه کمکم کنید. خیلی خیلی فوریه... :تشویق: