View Full Version : رمز گذاری روی پایگاه اطلاعاتی در VB
hani bageri
دوشنبه 02 مهر 1386, 14:03 عصر
سلام
من پروژه مو با VB نوشتم ازش SETUP هم ساختم اما چون پایگاه اطلاعاتی من دSQL است باید روی کامپیوتر مبدا هم SQL نصب باشه! اما من نمیخوام کاربر به جدولها دسترسی داشته باشه
چی کار باید بکنم؟باید روش رمز بذارم(چطوری این کارو بکنم)؟
sohrab o
دوشنبه 02 مهر 1386, 20:57 عصر
آره ، اما روی جدول که نمی شه رمز گذاشت ، پس باید روی sql رمز بزاری
از روش نصب خودکار sql استفاده کند
در برنامه هم باید از دستورات SQL برای ATTACH استفاده کنی
sohrab o
دوشنبه 02 مهر 1386, 20:59 عصر
بیا این تابع برای ATTACH
Private Function AttachDB(ByVal Str_ServerName As String, ByVal Str_DBName As String, ByVal Str_Password As String) As Boolean
On Error GoTo Lbl1
If Cnn.State <> adStateClosed Then Cnn.Close
StrConnection = "Provider=SQLOLEDB.1;Password=" & Str_Password & ";Persist Security Info=True;User ID=sa;Initial Catalog=Master;Data Source=" & Str_ServerName
Cnn.CursorLocation = adUseClient
Cnn.Open StrConnection '"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa1;Initial Catalog=Matab;Data Source=."
'Cnn.Execute
Cnn.Execute "sp_attach_db @dbname = N'" & Str_DBName & "'," & _
"@filename1 = N'" & App.Path & "\db\Matab_Data.MDF'," & _
"@filename2 = N'" & App.Path & "\db\Matab_Log.LDF'"
AttachDB = True
Exit Function
Lbl1:
MsgBox "áØÝÇ SQL Server 2000 ÑÇ ãÌÏÏ äÕÈ äãÇííÏ .", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "ÎØÇ ÏÑ ÈÑÞÑÇÑí ÇÑÊÈÇØ ÈÇ ÏíÊÇÈíÓ"
AttachDB = False
End Function
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.