lastgoldentiger
یک شنبه 22 مرداد 1391, 08:05 صبح
با سلام
:زکات علم به آموختن آن است.
برای تک تک کد هایی که می گذارم ، هم وقت برای جستجو و هم وقت برای تست و باگ گیری صرف شده است ،
و تقریبا مطمئنم در هیچ انجمن و تالار فارسی زبانی وجود ندارد.(بخاطر جستجوی های دو زبانه ای که صورت داده ام)
و موضوعاتش هم سعی می کنم بالاترین سطح نیاز یک برنامه نویس حرفه ای باشد.
که البته به مرور زمان به این نیت خواهیم رسید.
لطفا به هیچ عنوان کد کپی پیستی حتی فکر گذاشتنش را هم نکنید.
امید است که نیت این پست ، به انجام برسد.
کد اول : تابعی برای برگرداندن تعداد سطر های جدول در ado.net
Private Function zonkanCountF() As String
Dim ConnClient As SqlConnection = New SqlConnection("server=" + StrServerPath + "; database=VF; Uid=" + StrUID + "; pwd=" + StrPWD + ";")
Try
Dim CmdInsertToZonkan As SqlCommand = New SqlCommand("", ConnClient)
CmdInsertToZonkan.CommandType = CommandType.Text
CmdInsertToZonkan.CommandText = "SELECT COUNT (*) AS row_count FROM Zonkan WHERE UserName = '" + StrUserName.Trim + "'"
CmdInsertToZonkan.Connection.Open()
Return CmdInsertToZonkan.ExecuteScalar().ToString()
CmdInsertToZonkan.Connection.Close()
Catch ex As Exception
Return "Err"
'MsgBox("خطا در ثبت اطلاعات زونکن در بانک اطلاعاتی سرور" + vbCrLf + ex.Message, MsgBoxStyle.MsgBoxRight)
End Try
End Function
:زکات علم به آموختن آن است.
برای تک تک کد هایی که می گذارم ، هم وقت برای جستجو و هم وقت برای تست و باگ گیری صرف شده است ،
و تقریبا مطمئنم در هیچ انجمن و تالار فارسی زبانی وجود ندارد.(بخاطر جستجوی های دو زبانه ای که صورت داده ام)
و موضوعاتش هم سعی می کنم بالاترین سطح نیاز یک برنامه نویس حرفه ای باشد.
که البته به مرور زمان به این نیت خواهیم رسید.
لطفا به هیچ عنوان کد کپی پیستی حتی فکر گذاشتنش را هم نکنید.
امید است که نیت این پست ، به انجام برسد.
کد اول : تابعی برای برگرداندن تعداد سطر های جدول در ado.net
Private Function zonkanCountF() As String
Dim ConnClient As SqlConnection = New SqlConnection("server=" + StrServerPath + "; database=VF; Uid=" + StrUID + "; pwd=" + StrPWD + ";")
Try
Dim CmdInsertToZonkan As SqlCommand = New SqlCommand("", ConnClient)
CmdInsertToZonkan.CommandType = CommandType.Text
CmdInsertToZonkan.CommandText = "SELECT COUNT (*) AS row_count FROM Zonkan WHERE UserName = '" + StrUserName.Trim + "'"
CmdInsertToZonkan.Connection.Open()
Return CmdInsertToZonkan.ExecuteScalar().ToString()
CmdInsertToZonkan.Connection.Close()
Catch ex As Exception
Return "Err"
'MsgBox("خطا در ثبت اطلاعات زونکن در بانک اطلاعاتی سرور" + vbCrLf + ex.Message, MsgBoxStyle.MsgBoxRight)
End Try
End Function