دوستان
من تازه وارد هستم
میخواستم بدونم چه طوری میشه پایگاه اطلاعاتی یه مدرسه رو به اکسل معرفی کرد و اطلاعات دانش اموزان رو وارد اکسل کنیم؟
|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
[FONT=tahoma]Dim Cn as ADODB.Connection Set Cn = New ADODB.Connection[/FONT]
Dim StrConn as String
Strconn = [FONT=Consolas]"PROVIDER=SQLOLEDB;"
StrConn = StrConn & "DATA SOURCE=(local);INITIAL CATALOG=
حالا باید مسیر ارتباط رو به صورت زیر مشخص کنین (تنها در قسمت نام پایگاه داده باید نام پایگاه اطلاعاتی خودتون رو قرار بدین):
نام پایگاه داده شما[FONT=Consolas];"
StrConn = StrConn & " INTEGRATED SECURITY= SSPI;"[/FONT]
Cn.Open StrConn
Dim Rs as ADODB.Recordset
Set Rs = New ADODB.Recordset
With Rs
.ActiveConnection = Cn
' با استفاده از دستورات قرار داده شده در جلوی فرمان Open، تمامی اطلاعات موجود در جدول درون شی RecordSet قرار داده میشه.
.Open "SELECT * FROM نام جدول"
' اطلاعات قرار داده شده درون شی RecordSet به سلول A1 در شیت اول انتقال داده میشه.(در واقع سلول سمت چپ و بالای جدول شما سلول A1 هست و ما بقی در ادامه قرار داده میشه)
Sheet1.Range("A1").CopyFromRecordset Rs
.Close
End With
Cn.Close





کامنت