Hmmm... You'll need to somehow "capture" the file path you are selecting.
I think you'd find it eaiser to use something like the treeview control in your app to give you an "Explorer" type view that you could then select the file node from.
For no1, maybe try making the form something tiny e.g 1 px in height. Another option is to have a parent form with a menu item that opens a child form underneath with MDI but it could be tricky getting the positioning correct.
For no2 I think you'll be looking at a large form with containers like the panel class. Have a look on Google at the Panel, Groupbox and SplitContainer classes particularly SplitContainer...
You are probably going to have to you the MDI properties to assign one form as the parent and the other as the child:
On your main form load event:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dim Assessor as Boolean
Me.IsMdiContainer = True
.....
If Assessor = true then
dim MyForm as New AssessorForm
MyForm.MdiParent = Me
MyForm.show
Else
...
End if
This should open your assessor form as a child of your main parent form.
Hi But once you've found the target line, then put a second loop in your code to read in the next five.
Dim sr As New System.IO.StreamReader("MyFile")
Dim i As Integer
Dim Line As String
While sr.EndOfStream = False
Line = sr.ReadLine
If InStr(Line, "Juice") <> 0 Then
'do what ever with the line
For i = 0 To 4
Line = sr.ReadLine
'print
Next
End If
End While
I'm guessing the file is a csv (comma delimited file) or some other delimited
1 Read in each line of the file to a string 2 Use split on this string to generate an array of substrings (or columns) 3 Print out the necessary Columns from that array - remember VB array index starts at zero..
Hi, First of all, it looks to me like youi are not passing in the database values but strings e.g. "[Line 1]"
Second, what are the values that you are storing in the database? As far as I'm aware CheckState is looking for three possible values:
Checked - displays a checkmark Unchecked - Empty (unchecked) Indeterminate - displays a check and box is shaded
Personally I'd use the Checked property of checkbox instead as it can only be true or false and have each of the values stored in the database as bits or True or False strings e.g.
What I would do is before your are going to Insert your new city record check for matching records first, if it is clear insert, if not then query the user:
strSQL="SELECT COUNT(*) FROM CITY_MASTER WHERE LOWER(CITY_NAME) = '" &lcase(MyCity) &"'"
.....
If CityCount > 0 then
msgbox ("Entry already exists for " &MyCity &".")
Else
strSQL ="INSERT INTO...."
End if
Hi You would need to hold your values in a string or some other variable that you can then put into a message box at the end of your loop. e.g.
dim ReOrderItems as String
For increment = 0 To MaxRows - 1
quantity = KiwicyclesDataSet.Stock_Control.Rows(increment).Item("Quantity")
reorderlevel = KiwicyclesDataSet.Stock_Control.Rows(increment).Item("Re-Order Level")
name = KiwicyclesDataSet.Stock_Control.Rows(increment).Item("Model")
If reorderlevel >= quantity Then
MsgBox("Need to re-order" & name)
ReOrderItems = ReOrderItems &name &", "
Else
MsgBox("Stock is OK")
End If
Next
msgbox("The following items need to be restocked:" &vbcrlf &ReOrderItems)
I'm using mysql database..I have forms setup main form has datagrid..you can add to this datagrid and save to datbase with my add form and it works fine. I can delete from the datagrid and it works fine...when I select an account to edit is when I have my issue...form edit brings up the selected account but when I save my changes it doesn't save to the selected account it changes my first account in the database...Help...here is a sample of my code +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
' 'Save changes to database and exit
Dim intResponse As String
intResponse = MsgBox("Do you want to SAVE Changes to this record?", vbOKCancel, "Save?")
If intResponse = vbOK Then
PbCustomerDS.customer(0).Address_Line1 = Address_Line1TextBox.Text
PbCustomerDS.customer(0).Location = LocationTextBox.Text
PbCustomerDS.customer(0).Attention = AttentionTextBox.Text
PbCustomerDS.customer(0).City = CityTextBox.Text
PbCustomerDS.customer(0).State = StateTextBox.Text
PbCustomerDS.customer(0).Zip = ZipTextBox.Text
PbCustomerDS.customer(0).Phone = PhoneMaskedTextBox.Text
PbCustomerDS.customer(0).Bill_To = Bill_ToTextBox.Text
PbCustomerDS.customer(0).Attention_2 = Attention_2TextBox.Text
PbCustomerDS.customer(0).B_address = B_addressTextBox.Text
PbCustomerDS.customer(0).B_City = (B_CityTextBox.Text)
PbCustomerDS.customer(0).B_State = B_StateTextBox.Text
PbCustomerDS.customer(0).B_Zip = B_ZipTextBox.Text
PbCustomerDS.customer(0).B_Phone = B_PhoneMaskedTextBox.Text
PbCustomerDS.customer(0).Comments = CommentsTextBox.Text
PbCustomerDS.customer(0).Updated = UpdatedLabel1.Text
Me.Validate()
Me.CustomerBindingSource.DataSource.GetType()
Me.CustomerBindingSource.EndEdit()
Me.CustomerTableAdapter.Update(PbCustomerDS)
Me.TableAdapterManager.UpdateAll(PbCustomerDS)
Me.Close()
End If
If vbCancel Then
Exit Sub
End If
End Sub
Well the reason you are getting the first record changing is because you've hardcoded that the routine will change the first record i.e. the zero index record on the data grid.....
Instead of using
PbCustomerDS.Customer(0).
you need to identify the index of the currently selected row and pass it …
sub populatecomboboxManually ()
dim MyCombo as New Combobox
'do whatever you need to get your data.....
for i = 1 to 10
'New DataItem(ID (is not displayed) , Value (is displayed))
MyCombo.items.add(New DataItem(i,MyValue))
Next
end sub
sub readvaluefromcombo()
dim myDi as DataItem
dim myID as integer 'can of course be anything you want
dim myValue as String 'as above
myDI = MyCombo.SelectedItem
MyID = DI.ID
MyValue = DI.Value
end sub
As I said you can manually populate your dataitem. I usually use an integer for the ID..
Or you can read in values from a database and use something like primary key for ID and whatever field you want for value. As long as the ID is unique it will work. Just because you have to put ID and values into the dataitem doesn't mean you have to use both in your code.
