majid_afra222
پنج شنبه 18 خرداد 1385, 20:14 عصر
سلام
اول اینکه با این پست میخوام به دوستانی که تا بحال در محیط DTS از ActiveX ها استفاده نکردن 2 تا مثال نشون داده باشیم،
دوم از دوستانی که بلدن هم میخوام جواب سئوال ما رو بدن.
اولی برای ارتباط با بانک اطلاعاتی هستش و اجرای query (اینجا جواب تعداد مشتریهاست):
Function Main()
dim myRecordset
dim iRowCount
set myConn = CreateObject("ADODB.Connection")
set myRecordset = CreateObject("ADODB.Recordset")
myConn.Open = "Provider=SQLOLEDB.1;Data Source=(local); Initial Catalog=Northwind;user id = 'sa';password=''"
mySQLCmdText = "Select 'rowcount' = Count(*) from Customers"
myRecordset.Open mySQLCmdText, myConn
set Flds = myRecordset.Fields
set iRowCount = Flds("rowcount")
If iRowCount.Value = 0 then
Main = DTSTaskExecResult_Failure
Else
MsgBox "The number of customers is: " & iRowCount.Value
Main = DTSTaskExecResult_Success
End If
End Function
دومی هم برای ایجاد یک فایل متنی :
Function Main()
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
Main = DTSTaskExecResult_Success
End Function
نکته : برای دوستانی که کد رو نفهمیدن، تو SQL Server میشه با VBScript یا JScript اسکریپتهای ActiveX رو نوشت.
و اما سئوال خود ما :
من نتونستم یک صفحه وب aspx ناقابل رو با هیچ دستوری از داخل بانک اطلاعاتیم اجرا کنم. اگه کسی از دوستان اینکار رو کرده به ما هم بگه. یعنی آدرس صفحه و اطلاعات مورد نیازش رو بدیم بعد بگیم برامون اجرا کن اونم اجرا کنه.
یادآوری : ما یک پست در بخش ASP.NET بعنوان انجام عملیات زمانبندی شده داشتتیم که جواب داده نشد، یعنی رو سرور جواب نگرفتیم، برای همین با SQL Server میخوایم اینکار رو بکنیم، تو job.
اینم آدرس صفحه :
http://www.barnamenevis.org/forum/showthread.php?t=46011
پیشاپیش ممنون.
اول اینکه با این پست میخوام به دوستانی که تا بحال در محیط DTS از ActiveX ها استفاده نکردن 2 تا مثال نشون داده باشیم،
دوم از دوستانی که بلدن هم میخوام جواب سئوال ما رو بدن.
اولی برای ارتباط با بانک اطلاعاتی هستش و اجرای query (اینجا جواب تعداد مشتریهاست):
Function Main()
dim myRecordset
dim iRowCount
set myConn = CreateObject("ADODB.Connection")
set myRecordset = CreateObject("ADODB.Recordset")
myConn.Open = "Provider=SQLOLEDB.1;Data Source=(local); Initial Catalog=Northwind;user id = 'sa';password=''"
mySQLCmdText = "Select 'rowcount' = Count(*) from Customers"
myRecordset.Open mySQLCmdText, myConn
set Flds = myRecordset.Fields
set iRowCount = Flds("rowcount")
If iRowCount.Value = 0 then
Main = DTSTaskExecResult_Failure
Else
MsgBox "The number of customers is: " & iRowCount.Value
Main = DTSTaskExecResult_Success
End If
End Function
دومی هم برای ایجاد یک فایل متنی :
Function Main()
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
Main = DTSTaskExecResult_Success
End Function
نکته : برای دوستانی که کد رو نفهمیدن، تو SQL Server میشه با VBScript یا JScript اسکریپتهای ActiveX رو نوشت.
و اما سئوال خود ما :
من نتونستم یک صفحه وب aspx ناقابل رو با هیچ دستوری از داخل بانک اطلاعاتیم اجرا کنم. اگه کسی از دوستان اینکار رو کرده به ما هم بگه. یعنی آدرس صفحه و اطلاعات مورد نیازش رو بدیم بعد بگیم برامون اجرا کن اونم اجرا کنه.
یادآوری : ما یک پست در بخش ASP.NET بعنوان انجام عملیات زمانبندی شده داشتتیم که جواب داده نشد، یعنی رو سرور جواب نگرفتیم، برای همین با SQL Server میخوایم اینکار رو بکنیم، تو job.
اینم آدرس صفحه :
http://www.barnamenevis.org/forum/showthread.php?t=46011
پیشاپیش ممنون.