Recent content by lrfcbabe

I apologize I failed to mention PB1 is Blue and PB2 is Green when I initialize the DND action. 'First attempt mouse events' This only turns PB2 to Blue but PB1 is still Blue also but i want it to be Green. Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As...

I want to mousedown picturebox1(PB1), mouseup picturebox2(PB2) to swap the background colors, Drag and Drop(DND). Mousedown PB1 returns PB1-blue, mouseup PB2 returns PB1-blue. Form_Mouseup event, groubox_mouseup(PB1,PB2 container) event have no affect. With that I am having an issue with...

Hope this is not a repost, I can do this from DOS with a batch file 'Start "C:\...\iexplore.exe", "some http link"' And it works fine, I want to add this to the Right Click context menu when I click on a file of type n from windows explorer/folder view. I have looked through the registry trying...

That will sufice guitarzan, I was not wanting the letter to change at all no matter what folder i was in on that drive. Thanks everyone for your responses.

I run a bat file to open up frenquetly used drives. They all show up in my Taskbar in a nice little group starting with external then local then mapped drives. Each displaying The assigned drive letter C, D, F etc. Is there any way I can cause windows to NOT change the drive letter displayed? I...

I do not want to change the names of all the fields. Hope you do not mind me using this thread, it is all the same app. What can I do to preserve the column name? Thanks again Dim NDR As DataRow = DT1.NewRow() NDR(DT1.columns("Point On").ordinal) = strPointonPipeValue <-THIS DOES NOT...

OOPS, my bad, cannot set type Boolean, Nullable.

OK, if I comment out appending the FLAG column this works fine, when I add it back I get... COMException was unhandled Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. Is FLAG a reserved word that I do not know about? Or is this...

Thank You very much, that worked. Step 2 setting properties.

When I add more than forty four columns, NewDB.Tables.Append(NewDB) throws an error "Record is to Large" Otherwise it to work perfectly. Private Sub CreateGPSMastertbl() Dim NewDB As New ADOX.Catalog() NewDB.Create(strConn + vFolder + "GPS" + DateTime.Now.ToString("yyyyMMdd") +...

The brackets get me past the first hurdle. Size is a structure in dotnet. SELECT Distinct Designation FROM GHPAS4TG ORDER BY Designation; SELECT Distinct [Size] FROM GHPAS4TG ORDER BY [Size]; SELECT Distinct WallThk FROM GHPAS4TG ORDER BY WallThk; SELECT Distinct MAOP FROM GHPAS4TG ORDER BY...

OK I am back on this again, I think I almost have it. I am getting this in the immmediate window. SELECT Distinct Designation FROM GHPAS4TG ORDER BY Designation; SELECT Distinct Size FROM GHPAS4TG ORDER BY Size; A first chance exception of type 'System.Data.OleDb.OleDbException' occurred in...

That didn't work either This didn't work either Do Until StrList = "UNK" Dim ds As DataSet = New DataSet() Dim dt As DataTable = New DataTable Dim SQLTxt As String If StrList = "Size" Then SQLTxt = "SELECT " & StrList & " FROM...

So I tried this but after the first loop again I get the same error on da.fill(ds, "Table") Private Sub RefreshQuery(ByVal StrList As String) Dim Tempconn As New OleDbConnection(System.Configuration.ConfigurationManager.AppSettings.Get("ConnectionString")) Dim SQLTxt As String...

After the first loop I get an error on command.executereader(), OleDbException occured, IErrorInfo.GerDescription failed with E)FAIL(0x80004005), error code -2147467259 Private Sub RefreshQuery(ByVal StrList As String) Dim Tempconn As New...