when running this command: RS("Field").Value = Stream.Read I am getting this error: "Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done." Field in MySQL is defined as a LongBlob Any help would be appreciated. For every action there is an equal and opposite malfunction

You could use somthing like this; Sub SetControlArray() Dim Radio(6) as RadioButton Radio(0) = RadioButton1 Radio(1) = RadioButton2 Radio(2) = RadioButton3 Radio(3) = RadioButton4 Radio(4) = RadioButton5 Radio(5) = RadioButton6 End Sub Then use a For... Next to do what you want. Hope this helps. For every action there is an equal and opposite malfunction

Sub AddImage(rs As ADODB.Recordset, ByVal FileName As String) Dim stm As ADODB.Stream Set stm = New ADODB.Stream With stm .Type = adTypeBinary .Open .LoadFromFile FileName 'Insert the binary object into the table. rs.AddNew rs.Fields("DocumentColumnNameGoesHere").Value = .Read rs.Update .Close End With Set stm = Nothing End Sub For every action there is an equal and opposite malfunction

What kind of code are you interested in and what is the purpose?(what is it supposed to do?) Raist For every action there is an equal and opposite malfunction

Indeed you are correct; while I did not change the line as you suggested I've added a If... End If checking if this was a root node or not then added your line. (Can't believe it was so simple :mad:grr...) Thanks a bunch!:-D Raist For every action there is an equal and opposite malfunction -- modified at 12:12 Wednesday 10th May, 2006

Hi, I've been banging my head on the keyboard for a few days now searching for a solution to my problem. Iv'e searched Google for a solution but I can't seem to find any. The node information is stored in a MySQL database using the nodes.fullpath command or like this: lvl1\lvl2\lvl3 Now, I've seen and tried to use the treeview.nodes.add(1).nodes.add(2).nodes.add(3) with a split command but because I don't know how many levels there are before hand this makes a giant select case that makes me cry each time I see it. I want the routine to check if the level exists then add it if it doesn't and/or move to the next level. (Geez it sounds so simple writen like that...) Here is the routine I'm using Dim SQL As String = "Select * from troubleshooting order by node_path asc" Dim StrNodePath As String Dim nNode As TreeNode Dim BolNew As Boolean = True Dim X As Integer Dim StrNode As String RSProbleme = ReturnForm.StrConn.Execute(SQL) Do Until RSProbleme.EOF = True StrNodePath = RSProbleme("node_path").Value aNodePath = Split(StrNodePath, "\") For X = 0 To UBound(aNodePath) BolNew = True For Each nNode In TrVProbleme.Nodes If nNode.Text = aNodePath(X) Then BolNew = False End If Next If BolNew = True Then nNode.Nodes.Add(aNodePath(X)) <-- This is the line that gives me trouble End If Next RSProbleme.MoveNext() Loop When adding it gives me the error, "Object reference not set to an instance of an object." and using the variable watch in VS it says that nNode = Nothing. Any help will be greatly appreciated. (My head hurts from all that banging...) Thanks For every action there is an equal and opposite malfunction

You need to create an instance of the forms on each form before they can communicate ex: on form2 Public OldFrm As Form1 on form1 Dim NewFrm As New Form2 Form2.OldFrm = Me You need to do the second form first else it wont be recognized Then you can call objets like this on form1 NewFrm.MyDataset.MyTable("").Rows Hope this helps For every action there is an oposite and equal malfunction.

I'm using this code to play a wav file; Public Shared Sub PlayWaveResource(ByVal WaveResourceName As String) ' get the resource into a stream Dim resourceStream As Stream resourceStream = System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("AssemblyName." + WaveResourceName) If resourceStream Is Nothing Then Exit Sub ' bring stream into a byte array Dim wavData As Byte() ReDim wavData(CInt(resourceStream.Length)) resourceStream.Read(wavData, 0, CInt(resourceStream.Length)) ' play the resource PlaySound(wavData, 0, SND_ASYNC) End Sub but it's not playing the right sound, it plays the standard windows error sound instead :wtf: any ideas? :confused: For every action there is an equal and opposite malfunction