Posts
 
Reputation
Joined
Last Seen
0 Reputation Points
Unknown Quality Score

No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.

0 Endorsements
~1K People Reached
Interests
Getting stuff done
Favorite Forums
Favorite Tags

5 Posted Topics

Member Avatar for Zulu79

I am in the process of converting a program from vb 6 to VB.Net. I am taking a large amount of data and placing it in the proper sql collum. Any help will be greatly appreciated. I am getting this error code here: If ExistsInrsTemp("NextMthDue") = True Then If InStr(NullSafeValue(rsTemp, …

Member Avatar for Zulu79
0
210
Member Avatar for Samarth_1

Here is how I handeled holidays Dim dDate As Date dDate = DateTime.Parse(dDate, Globalization.CultureInfo.CreateSpecificCulture("en-CA")) Dim blnCoerceDateSucceeded As Boolean dDate = CDate(DateIn) If Weekday(DateIn) = FirstDayOfWeek.Saturday Or Weekday(DateIn) = FirstDayOfWeek.Sunday Then Exit Function If Month(dDate) = 1 Then If VB.Day(dDate) = 1 Or (WeekDay(dDate) = FirstDayOfWeek.Monday And VB.Day(dDate) = 2) Then …

Member Avatar for Zulu79
0
431
Member Avatar for Zulu79

This is my code, and thoughs on this error: Conversion from string "MM/yyyy" to type 'Date' is not validerror: Public Function AddNextMonthDue(ByRef OldNMD As String, ByRef MonthsToAdd As String) As String Dim dOldNMD As Date Dim dNewNMD As Date Dim sOldNMD As String If Len(OldNMD) = 4 Then ' MMDD …

Member Avatar for Reverend Jim
0
247
Member Avatar for Zulu79

I was able to store the PDF. Now the issue is retreving the correct version of the PDF. I am storing it with the data fields filled in;however, upon retrevial the fields are blank. Dim reader As System.Data.SqlClient.SqlDataReader = Local_Command.ExecuteReader() Dim buffer(100000) As Byte Dim data As Byte() While reader.Read …

Member Avatar for Ancient Dragon
0
106
Member Avatar for Zulu79

Dim pdf As String Dim pdfByteArray As Byte() ' Dim lLenPdf As Integer = Len("C:\file.pdf") Dim mypdf(100000)() As Byte Dim numBytes As Long = pdfFile.Length ' Dim data As Byte() = System.IO.File.ReadAllBytes("C:\file.pdf") myInitialBytes.Add(New Byte() {&H0, &H25}) StoredProc….. SQL Connection code…. Dim Local_Connection As New _ Local_Connection.Open() Local_Command.CommandText = "Insertpdf" Local_Command.CommandType …

Member Avatar for tinstaafl
0
140

The End.