Ver Mensaje Individual
  #1 (permalink)  
Antiguo 13/01/2012, 13:08
carlos79
 
Fecha de Ingreso: septiembre-2009
Ubicación: Venezuela
Mensajes: 92
Antigüedad: 15 años, 6 meses
Puntos: 1
Migración a .net

Buenas tardes estimados amigos foristas :

Tiempo sin aparecer por la comunidad....

Bueno, en esta ocasión estoy bien preguntón ya que actualmente tengo un sistema de venta diseñadop en VB 6.... Pero he tenido tanto problema ejecutando el 7 que me veo en la imperiosa necesidad de migrar a VB.net (visual studio 2010).

Ahora bien... mi sorpresa es que mi código no sirve para nada.... todo es completamente diferente..... Llevo 3 dias tratando de conectarme a la bd (lo cuál ya pude realizar), sin embargo.... lo que no se, es como hacer uan consulta en un textbox a mi sqlserver y mostrarlo en un segundo textbox.... me explico ???

les muestro mi código a ver que les parece...


Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
Dim text1 As Object
Dim text2 As Object
Private Const cs As String = "Data Source=nombre del server\SQLEXPRESS;"& _
"Integrated Security=sspi;" & _
"Initial Catalog=siscon"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.MaterialTableAdapter.Fill(Me.SISCONDataSet.mate rial)
Using cn As SqlClient.SqlConnection = New SqlClient.SqlConnection(cs)
cn.Open()
End Using
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim da As New SqlClient.SqlDataAdapter("select precio from material", cs)
Dim ds As New DataSet
da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
' Dim cs As New SqlConnection
Dim ds As New DataSet
Dim da As New SqlClient.SqlDataAdapter


If Asc(e.KeyChar) = 13 Then
da = New SqlClient.SqlDataAdapter("select precio from material where cod_mat =" & TextBox1.Text, cs)
da.Fill(ds)
' DataGridView1.DataSource = ds.Tables(0)

' Dim tab As DataTable = ds.Tables("material")

'Me.TextBox2.Text = ds.Tables(0).ToString()
End If

End Sub



End Class



Espero me puedan echar una manito amigos para ir aprendiendo el mundo del .net y migrar mi aplicación....

Por cierto... saben de algún link donde me peuda descargar un programa sencillo desarrollado en vb.net y trabaje con data en sqlserver para leer la codificación y entender un poco mas esto ????

Saludos.

Carlos.