Databases
StackOverflow2013
Postsdbo
POProblems making a booking into local database in VB 2008
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POProblems making a booking into local database in VB 2008
    primarykey
    data
    text
    <p>Hi I am currently trying to sore details about a lesson in a local .mdf database, but do not seem to be able to do so, I have had this problem for a few weeks and really need to sort it out so any help would be much appreciated. I will include my code for the form below. Thanks in advance for your help!!</p> <pre><code>Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Session As String Session = txtSession.text Dim con As New SqlConnection Dim inscmd As New SqlCommand con.ConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings("RoomBookingSystem.My.MySettings.Database1ConnectionString1").ConnectionString Try Using cn As New SqlConnection(con.ConnectionString) con.Open() Dim ParamInitial As New SqlParameter ParamInitial.ParameterName = ("@StaffInitials") ParamInitial.Value = lblStaffInitials.Text.Trim() inscmd.Parameters.Add(ParamInitial) Dim ParamWeek As New SqlParameter ParamWeek.ParameterName = ("@Week") ParamWeek.Value = lblWeek.Text.Trim inscmd.Parameters.Add(ParamWeek) Dim ParamPeriod As New SqlParameter ParamPeriod.ParameterName = ("@Period") ParamPeriod.Value = lblPeriod.Text.Trim inscmd.Parameters.Add(ParamPeriod) Dim ParamDay As New SqlParameter ParamDay.ParameterName = ("@Day") ParamDay.Value = lblDay.Text.Trim inscmd.Parameters.Add(ParamDay) Dim ParamSubject As New SqlParameter ParamSubject.ParameterName = ("@Subject") ParamSubject.Value = lblSubject.Text.Trim inscmd.Parameters.Add(ParamSubject) Dim ParamYearGroup As New SqlParameter ParamYearGroup.ParameterName = ("@YearGroup") ParamYearGroup.Value = lblYear.Text.Trim inscmd.Parameters.Add(ParamYearGroup) Dim ParamNumberPupils As New SqlParameter ParamNumberPupils.ParameterName = ("@NumberOfPupils") ParamNumberPupils.Value = lblNoOfPupils.Text.Trim inscmd.Parameters.Add(ParamNumberPupils) Dim ParamControlledAssesment As New SqlParameter ParamControlledAssesment.ParameterName = ("@ControlledAssesment") ParamControlledAssesment.Value = lblControlledAssesment.Text.Trim inscmd.Parameters.Add(ParamControlledAssesment) Dim ParamRoom As New SqlParameter ParamRoom.ParameterName = ("@Room") ParamRoom.Value = lblRoom.Text.Trim inscmd.Parameters.Add(ParamRoom) Dim ParamSession As New SqlParameter ParamSession.ParameterName = ("@Session") ParamSession.Value = txtSession.Text.Trim inscmd.Parameters.Add(ParamSession) inscmd.CommandText = "INSERT INTO Booking (Week, Day, Period, Subject, YearGroup, StaffInitials, NumberOfPupils, Session, Room, ControlledAssesment)VALUES (@Week,@Day,@Period,@Subject,@YearGroup,@StaffInitials,@NumberOfPupils,@Session,@Room,@ControlledAssesment)" 'inscmd.CommandText = "INSERT INTO Booking (Week, Day, Period, Subject, YearGroup, StaffInitials, NumberOfPupils, Session, Room, ControlledAssesment)VALUES ('B','Monday',5,'Politics','U6','JAGG',5,'5','LIT','False')" Print(inscmd.CommandText) inscmd.Connection = con inscmd.ExecuteNonQuery() con.Close() inscmd.Parameters.Clear() End Using ' Catch ex As Exception ' MsgBox("" &amp; ex.Message) 'if there is an error it will go here (can use Msgbox or label) Finally con.Close() End Try MsgBox("Your Booking Has Been Made Successfully") Clicky = False MainViewForm.btnBackToBooking.Visible = False FormView.Show() Me.Hide() con.Close() End Sub </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. This table or related slice is empty.
    1. USAlwyn Gardner
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POProblems making a booking into local database in VB 2008
      1. This table or related slice is empty.
      1. VTDownMod
    2. VO
      singulars
      1. POProblems making a booking into local database in VB 2008
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POProblems making a booking into local database in VB 2008
      1. USWill Peckham
      1. VTFavorite
    1. COWhat error do you get? Any error message - pls provide some additional information
      singulars
      1. POProblems making a booking into local database in VB 2008
      1. USPilgerstorfer Franz
    2. COWith the current setup I get this error (Sorry for not adding to begin with) Conversion from string "INSERT INTO Booking (Week, Day, " to type 'Integer' is not valid.
      singulars
      1. POProblems making a booking into local database in VB 2008
      1. USAlwyn Gardner
    3. CODid you try setting SqlDbType?
      singulars
      1. POProblems making a booking into local database in VB 2008
      1. USBulat
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload