سلام
من تاحالا با اسکیوال سرور کار نکردم یعنی برنامه تحت ویندوز که بخوام بنویسم از اکسس استفاده میکنم .
الان باید با اسکیوال سرور بنویسم برنامه شو نصب کردم بعد سرور رو هم ران کردم ولی تو وبی ADODC که میارم سرور رو نمیاره که انتخاب کنم موندم باید چیکار کنم اصلا چه نسخه ایی باید نصب میکردم نصبش مرحله خاصی داره ؟
من نسخه develop رو نصب کردم رو xp کسی میتونه کمک کنه ؟
فوریه ممنون میشم
ابتدا داخل پروژه تون در ویژوال استدیو در منوی Project از گزینه ...References استفاده کنید و در لیست تیک گزینه
Microsoft ActiveX Data Object Library نسخه 2.8 رو بزنید و با دکمه OK کنید.
بعد از اینکه در SQL Server Management Studio بانک اطلاعاتی تان را Attach کردید می توانید با استفاده از
ADODB به آن دسترسی داشته باشید.
در مثال زیر در سرور پیشفرض (سرور پیشفرض با . مشخص میشه) بانک اطلاعاتی MyDBName
با Windows authentication باز میشه (نام کاربری و رمز عبور مشخص نشده و تهی هستند)
و محتویات جدول MyTable خوانده میشه و در تمامی سطر های جدول مقدار فیلد FirstName نمایش داده میشه :
کد:
Option Explicit
Private Const [B][COLOR="Blue"]serverName[/COLOR][/B] As String = "."
Private Const [B][COLOR="Blue"]databaseName[/COLOR][/B] As String = "MyDBName"
Private Const [B][COLOR="Blue"]userName[/COLOR][/B] As String = ""
Private Const [B][COLOR="Blue"]password[/COLOR][/B] As String = ""
Private Sub Form_Load()
Dim connectionString As String
If Len(userName) > 0 Then
connectionString = "Provider=sqloledb;Data Source=" & serverName & ";Initial Catalog=" & databaseName & ";User ID=" & userName & ";Password=" & password & ";"
Else
connectionString = "Provider=sqloledb;Data Source=" & serverName & ";Initial Catalog=" & databaseName & ";Persist Security Info=False;Integrated Security=SSPI;"
End If
Dim connection As New ADODB.connection
connection.Open connectionString
Dim recordset As New ADODB.recordset
recordset.Open "SELECT * FROM [B][COLOR="Blue"]MyTable[/COLOR][/B]", connection, adOpenKeyset
Dim rowIndex As Long
recordset.MoveFirst
For rowIndex = 1 To recordset.RecordCount
MsgBox recordset.Fields("[B][COLOR="Blue"]FirstName[/COLOR][/B]").Value
recordset.MoveNext
Next
connection.Close
End Sub
