Comments by Member 13341316 (Top 21 by date)

i think this is line 100
Dim PdfTable As New pdf.PdfPTable(AdmissionDataGridView.Columns.Count)

still on this same code

Imports System.Data.OleDb
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports System.IO
Public Class Admissionrecord

Private Sub AdmissionBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Me.Validate()
Me.AdmissionBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.ButhdatabaseDataSet)

End Sub

Private Sub Admissionrecord_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ButhdatabaseDataSet.Admission' table. You can move, or remove it, as needed.
OpenConnection()
Dim da As OleDbDataAdapter
Dim dt As DataTable
da = New OleDbDataAdapter("SELECT Hospital No,Patient's Name,Date Attended,Reffered By,Consultant,Ward,Date Discharged,Discharged To,Condition On Discharge,Discharge Summary FROM Admission", Connection)
dt = New DataTable
da.Fill(dt)
AdmissionDataGridView.DataSource = dt
AdmissionDataGridView.Refresh()
Connection.Close()
da.Dispose()

SaveFileDialog1.FileName = ""
SaveFileDialog1.Filter = "PDF (*.pdf) |*.pdf"


TextBox1.Text = ""
TextBox2.Text = ""


Me.AdmissionTableAdapter.Fill(Me.ButhdatabaseDataSet.Admission)

End Sub


Private Sub AdmissionDataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles AdmissionDataGridView.CellContentClick

End Sub

Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs)
AdmissionBindingSource.RemoveCurrent()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Admission.Show()
Me.Close()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

End Sub

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs)
Dim reportfont As Font = New Drawing.Font("time new roman", 14)
e.Graphics.DrawString("AdmissionDataGridView", reportfont, Brushes.Chocolate, 100, 100)
e.Graphics.DrawString("Admissionrecord", reportfont, Brushes.Chocolate, 100, 100)

End Sub

Private Sub AdmissionBindingNavigator_RefreshItems(sender As Object, e As EventArgs) Handles AdmissionBindingNavigator.RefreshItems

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
AdmissionBindingSource.RemoveCurrent()
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
SaveFileDialog1.FileName = ""
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
TextBox2.Text = SaveFileDialog1.FileName
End If

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click


Dim paraghraph As New Paragraph
Dim pdfFile As New Document(pageSize.A4, 40, 40, 40, 20)
PdfFile.AddTitle(TextBox1.Text)
Dim write As PdfWriter = PdfWriter.GetInstance(PdfFile, New FileStream(TextBox2.Text, FileMode.Create))
PdfFile.Open()

Dim pTitle As New Font(iTextSharp.Text.Font.FontFamily.TIMES_ROMAN, 14, iTextSharp.Text.Font.BOLD, BaseColor.BLACK)
Dim pTable As New Font(iTextSharp.Text.Font.FontFamily.TIMES_ROMAN, 12, iTextSharp.Text.Font.NORMAL, BaseColor.BLACK)

'NOTE THIS O!!!!
Dim Paragraph = New Paragraph(New Chunk(TextBox1.Text, pTitle))
Paragraph.Alignment = Element.ALIGN_CENTER
Paragraph.SpacingAfter = 5.0F


PdfFile.Add(Paragraph)

Dim PdfTable As New PdfTable(AdmissionDataGridView.Columns.Count)

PdfTable.TotalWidth = 500.0F()
PdfTable.LockedWidth = True

Dim Widths(0 To AdmissionDataGridView.Columns.Count - 1) As Single
For i As Integer = 0 To AdmissionDataGridView.Columns.Count - 1
Widths(i) = 1.0F
Next
PdfTable.SetWidth

i still get this error too after applying the changes.
Error 1 Expression is not an array or a method, and cannot have an argument list. C:\Users\teejayfpi\Desktop\Dr ajii\WindowsApplication2\Admissionrecord.vb 100 31 WindowsApplication2

ok

please kindly help me out thats the link to the project. please download it and help me out

https://drive.google.com/open?id=0B3TbJAnEMncGTllQbkJuWXl2bnc

is their a way i can send my project to you

Operation must use an updateable query, that is what its showing

Public Class Admission

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim conn As New OleDb.OleDbConnection
Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Buthdatabase.accdb;Persist Security Info=False"
Dim cmd As New OleDb.OleDbCommand

Try
conn.ConnectionString = connStr
conn.Open()
cmd.Connection = conn

cmd.CommandText = "INSERT INTO Admission ([Hospital No],[Patient's Name],[Date Attended],[Reffered By],[Consultant],[Ward],[Date Discharged],[Discharged To],[Condition On Discharge],[Discharge Summary]) " & _
"VALUES ([@HospitalNo],[@Patient'sName],[@DateAttended],[@RefferedBy],[@Consultant],[@Ward],[@DateDischarged],[@DischargedTo],[@ConditionOnDischarge],[@DischargeSummary]); "

cmd.Parameters.AddWithValue("@HospitalNo", Hospital_NoTextBox.Text)
cmd.Parameters.AddWithValue("@Patient'sName", Patient_s_NameTextBox.Text)
cmd.Parameters.AddWithValue("@DateAttended", DateTime.Text)
cmd.Parameters.AddWithValue("@RefferedBy", Reffered_ByTextBox.Text)
cmd.Parameters.AddWithValue("@Consultant", ConsultantTextBox.Text)
cmd.Parameters.AddWithValue("@Ward", WardTextBox.Text)
cmd.Parameters.AddWithValue("@DateDischarged", DateTime1.Text)
cmd.Parameters.AddWithValue("@DischargedTo", Discharged_ToTextBox.Text)
cmd.Parameters.AddWithValue("@ConditionOnDischarge", Condition_On_DischargeTextBox.Text)
cmd.Parameters.AddWithValue("@DischargeSummary", Discharge_SummaryTextBox.Text)


cmd.ExecuteNonQuery()
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

but the error started showing after i put the accdb file into folder

when i tried the second option i get the following errors: Error 6 Unable to open file 'C:\Users\teejayfpi\Desktop\BOWEN DATABASE\WindowsApplication2\WindowsApplication2\obj\Debug\WindowsApplication2.StartUpPage.resources': System Error &H80070002& WindowsApplication2

Error 1 Resource file "StartUpPage.resx" cannot be found. WindowsApplication2

Error 5 -6417: Internal build error ISEXP : error : -6417: Internal build error

Error 4 -6271: File C:\Users\teejayfpi\Desktop\BOWEN DATABASE\WindowsApplication2\WindowsApplication2\bin\Debug\WindowsApplication2.exe not found. An error occurred building the MsiFileHash table record for this file. Verify that the file exists in the specified location. ISEXP : error : -6271: File C:\Users\teejayfpi\Desktop\BOWEN DATABASE\WindowsApplication2\WindowsApplication2\bin\Debug\WindowsApplication2.exe not found. An error occurred building the MsiFileHash table record for this file. Verify that the file exists in the specified location.

Error 3 -6103: Could not find file "C:\Users\teejayfpi\Desktop\BOWEN DATABASE\WindowsApplication2\WindowsApplication2\bin\Debug\WindowsApplication2.exe" ISEXP : error : -6103: Could not find file "C:\Users\teejayfpi\Desktop\BOWEN DATABASE\WindowsApplication2\WindowsApplication2\bin\Debug\WindowsApplication2.exe"

the file already exist, but i dont know how to give necessary permission. please is their a way i can send the project to you so that you can see

thank you so much, but please what will i do to my project, i have like 30 forms in my project, whenever i launch the debug it takes a while before coming up, very slow.

thank you so much for your help. i really appreciate it

but the errors i got earlier was different from this one

i have done all you suggested but am still getting the same error, please is it possible for me to send the project to you, so you can help me rectify the problem. thanks