رمز گذاری روی پایگاه اطلاعاتی در VB

[hani bageri]

سلام
من پروژه مو با VB نوشتم ازش SETUP هم ساختم اما چون پایگاه اطلاعاتی من دSQL است باید روی کامپیوتر مبدا هم SQL نصب باشه! اما من نمیخوام کاربر به جدولها دسترسی داشته باشه
چی کار باید بکنم؟باید روش رمز بذارم(چطوری این کارو بکنم)؟

[sohrab o]

آره ، اما روی جدول که نمی شه رمز گذاشت ، پس باید روی sql رمز بزاری
از روش نصب خودکار sql استفاده کند
در برنامه هم باید از دستورات SQL برای ATTACH استفاده کنی

[sohrab o]

بیا این تابع برای 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