select textbox.text

G

Guest

I have this code, I want a see all my informatonin in a textbox.text, how can
I do that.

Function Consultas(ByVal usuario As String) As System.Data.DataSet
Dim connectionString As String = "server='Sistemas'; user id='sa';
password=''; database='Sistemas'"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.SqlClient.SqlConnection(connectionString)

Dim queryString As String = "SELECT [ImvenrtarioCompusSQL].* FROM
[ImvenrtarioCompusSQL] WHERE ([ImvenrtarioCo"& _
"mpusSQL].[Usuario] = @Usuario)"
Dim dbCommand As System.Data.IDbCommand = New
System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_usuario As System.Data.IDataParameter = New
System.Data.SqlClient.SqlParameter
dbParam_usuario.ParameterName = "@Usuario"
dbParam_usuario.Value = usuario
dbParam_usuario.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_usuario)

Dim dataAdapter As System.Data.IDbDataAdapter = New
System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)


Return dataSet
End Function
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,754
Messages
2,569,527
Members
44,999
Latest member
MakersCBDGummiesReview

Latest Threads

Top