PDA

View Full Version : سوال: توضيح درباه يك كد



Iran58
یک شنبه 27 تیر 1389, 14:42 عصر
باسلام
لطفاكسي مي تواند درموردكدزيربه بنده توضيح بدهدونمونه# c آنرابراي بنده بنويسد
باتشكر

Private Sub MakeExcelReport(ByVal DS As DataSet)
Dim DateTimeCreateFile As String
Dim Src As String
Dim Target As String
Dim ExcelFileObj
Dim CurDate As String
Dim CurTime As String
Dim ObjDate As New ShamsiDate.SDate
Dim CnExcel As New OleDb.OleDbConnection
Dim CmdExcel As New OleDb.OleDbCommand
Dim SqlStr As String
Dim TempSqlStr As String
Dim Ind As Integer
Dim TempDT As New DataTable

Try
DateTimeCreateFile = MakeTimeAndDateFile()
Src = Server.MapPath("../../") + "ExcelMainFiles\DiffInEMIGAInf.xls"
Target = Server.MapPath("../../") + "Temp\DiffInEMIGAInf\DiffInEMIGAInf" + "-" + DateTimeCreateFile + ".xls"

ExcelFileObj = CreateObject("Scripting.FileSystemObject")

ExcelFileObj.CopyFile(Src, Target, True)
ExcelFileObj = Nothing

CurDate = Year(Now) & "/" & Month(Now) & "/" & Day(Now)
CurDate = ObjDate.ShamsiDate(CurDate)
CurTime = MakeCurTime()

CnExcel.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Target + ";Extended Properties=Excel 8.0;"
CnExcel.Open()
CmdExcel.Connection = CnExcel

' Cur Date
SqlStr = " Update [Sheet1$] Set F9 = '" + CurDate + "' "
SqlStr += " Where F9 = 'CurDate' "
CmdExcel.CommandText = SqlStr
CmdExcel.ExecuteNonQuery()

' Cur Time
SqlStr = " Update [Sheet1$] Set F9 = '" + CurTime + "' "
SqlStr += " Where F9 = 'CurTime' "
CmdExcel.CommandText = SqlStr
CmdExcel.ExecuteNonQuery()

SqlStr = "Insert Into [Sheet1$]("
SqlStr += " F1, F2, F3, F4, F5, F6, F7, F8, F9 "
SqlStr += ") Values ( "

TempDT = DS.Tables("CompleteTable")
For Ind = 0 To TempDT.Rows.Count - 1
TempSqlStr = (Ind + 1).ToString()
TempSqlStr += ", '" + TempDT.Rows(Ind).Item("SupplierName").ToString() + "' "
TempSqlStr += ", '" + TempDT.Rows(Ind).Item("EmigaProductCode").ToString () + "' "
TempSqlStr += ", '" + TempDT.Rows(Ind).Item("EmigaClassCode").ToString() + "' "
TempSqlStr += ", '" + TempDT.Rows(Ind).Item("BODY_NUMBER").ToString() + "' "
TempSqlStr += ", '" + TempDT.Rows(Ind).Item("Storage_SNO").ToString() + "' "
TempSqlStr += ", '" + IIf(TempDT.Rows(Ind).Item("KIT_SNO").ToString().Tr im() = "", "-", TempDT.Rows(Ind).Item("KIT_SNO").ToString().Trim() ) + "' "

TempSqlStr += ", '" + TempDT.Rows(Ind).Item("InstallType").ToString() + "' "
TempSqlStr += ", '" + TempDT.Rows(Ind).Item("InstallDate").ToString() + "' "

TempSqlStr += " ) "

CmdExcel.CommandText = SqlStr + TempSqlStr
CmdExcel.ExecuteNonQuery()
Next
CnExcel.Close()
CnExcel.Dispose()
MakeDownLoadTr("..\..\Temp\DiffInEMIGAInf\DiffInEM IGAInf" + "-" + DateTimeCreateFile + ".xls", TableErr)
Catch ex As Exception
If (CnExcel.State = ConnectionState.Open) Then
CnExcel.Close()
End If
CnExcel.Dispose()
TableErr.Rows.Add(MakeTrError(ErrorToString()))
End Try

End Sub

mohsen622001
یک شنبه 27 تیر 1389, 15:10 عصر
اینجا انجمن #c است نه vb

Iran58
پنج شنبه 31 تیر 1389, 17:49 عصر
اینجا انجمن C#‎ است نه vb
باسلام
جواب شما درست اما من درصورت سوال بيان كرده ام جواب اين كد رابه C#مي خواهم

vandermond
پنج شنبه 31 تیر 1389, 17:58 عصر
http://www.developerfusion.com/tools/convert/vb-to-csharp/