hi farnival i am sending you the code
let me tell you one thing that i had created a class named Database with some function!!!!
My Class Data base code!!
- Imports System.Data.SqlClient
-
Imports Microsoft.VisualBasic
-
-
-
Public Class Database
-
Private Shared mycommand As SqlCommand
-
Private Shared dr As SqlDataReader
-
Private Shared da As SqlDataAdapter
-
Private Shared con As SqlConnection
-
Shared Function connection()
-
Dim con As SqlConnection = New SqlConnection
-
con.ConnectionString = "data source = (local) ; initial catalog = WisHRM ; Integrated Security = SSPI"
-
Return con
-
End Function
-
Shared Sub GetSelectQuery(ByVal query As String)
-
con = Database.connection
-
con.Open()
-
mycommand = New SqlCommand(query, con)
-
dr = mycommand.ExecuteReader
-
dr.Read()
-
End Sub
-
Shared Function GetResult()
-
Return dr
-
End Function
-
Shared Sub GetDsQuery(ByVal query As String)
-
con = Database.connection
-
con.Open()
-
da = New SqlDataAdapter(query, con)
-
End Sub
-
Shared Function GetDsResult()
-
Return da
-
End Function
-
Shared Function GetUpdateQuery(ByVal query As String)
-
con = Database.connection
-
con.Open()
-
Dim i As Integer = 0
-
mycommand = New SqlCommand(query, con)
-
i = mycommand.ExecuteNonQuery
-
Return i
-
End Function
-
-
End Class
-
Now i am calling the function of that class to connect and get result from database!
my Welcome Page
i had a label in it !!
its code
- Database.GetSelectQuery("Select strFirstName,strLastName from tblEmployee where intEmployeeid = 4)
-
lblName.Text = Database.GetResult(0) + Database.GetResult(1)
as i told you i had acheived to show firstname and last name through the code
but the problem now remaining in that is that i cant give space i had tried the Alamodgal method but it gives the same Error !! as i had written!!
78
