PCGH system

Submitted by princenathan on Wednesday, February 22, 2012 - 20:44.

Language

This is a system in the hospital PCGH The Back End is SQl server 2008 if you want to finish this project juct contact me ^_^

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Comments

Hi,

Hi, can you please tell me how to use the database?

Database

my database is Sql server 2008 you need to install the sql server 2008 and the back file on dataBase folder PCGHDatabase.bak (back up) youn need to copy this on drive c:/ms sql server/database/back file and goto the sql server management studio you need to Restore the database ^_^

data`

sir ano po contact no. nyu

me too i need instruction on

me too i need instruction on how to connect to the database...

how to connect database??

Step1: install sql server 2008 w/ management studio copy the back up file database and paste the drive c: ms sql server look folder your server database and paste the back up folder step2: restore the datase from sql server back up folder open sql server management studio then Restore the database.. if you have already restore you need to change the connection string Imports System.Data.SqlClient Module connect Public Con As SqlConnection Public constr As String Public usertype As String Public Sub main() Dim servername = "PPCI-PC" 'change this your own Pc servername Dim serverdatabase = "PCGHDatabase" Dim serverpassword = "ppci" 'change this your own password databse constr = "Data Source=" & servername & " ;Initial Catalog=" & serverdatabase & ";User Id=sa;Password=" & serverpassword & ";" Con = New SqlConnection(constr) Try Con.Open() 'MsgBox("Server Connection is Open ! ") Con.Close() Catch ex As Exception 'MsgBox("Sorry Can not open connection ! ") End Try End Sub End Module