DATAGRID COM CHAVE ESTRAGEIRA

BRUNOGOMES 15/10/2012 20:30:35
#412103

OMAR2011 com esse agora nao aparece nada no codigo do valorrecebido e nem no nome do cliente...
vc usou o mesmo codigo q eu para carregar no datagrid ??

OMAR2011 15/10/2012 20:56:28
#412104

SELECT TOP 1000 [cod_valorrecebidocliente]
,[data_valorrecebidocliente]
,[valor_valorrecebidocliente]
,[observacoes_valorrecebidocliente]
,[cod_Cliente]
FROM [D:\CONSTRUÇÃO\CONSTRUÇÃO\BIN\DEBUG\BRAS2012.MDF].[dbo].[ValorRecebidoCliente]

/****** Script for SelectTopNRows command from SSMS ******/
SELECT TOP 1000 [Cod_Cliente]
,[Nome_Cliente]
FROM [D:\CONSTRUÇÃO\CONSTRUÇÃO\BIN\DEBUG\BRAS2012.MDF].[dbo].[Cliente]

Criei as tabelas e relacionamento de teste no SqlServer 2012 com Sql Server Management Studio e.
Esse é o codigo que fiz e apareceu

Nome-Cliente,Data_valorrecebidocliente e Valor_valorrecebidocliente

Este é o código;

Sub DataGridWork()
CnrStr1 = [Ô]Data Source=(LocalDB)\v11.0;AttachDbFilename=|DataDirectory|\Bras2012.mdf;Integrated Security=True[Ô]
CN1.ConnectionString = CnrStr1
CN1.Open()
With CMD1
.Connection = CN1
.CommandType = CommandType.Text
.CommandText = [Ô]Select Cliente.Nome_Cliente,ValorRecebidoCliente.data_valorrecebidocliente,ValorRecebidoCliente.valor_valorrecebidocliente From Cliente,ValorRecebidoCliente Where ValorRecebidoCliente.cod_cliente=Cliente.cod_cliente[Ô]
End With

MyReader1 = CMD1.ExecuteReader

Dim I As Integer
For I = 0 To MyTable1.Rows.Count - 1
MyReader1.Read()
Next

MyTable1.Load(MyReader1)
DataGridView1.DataSource = MyTable1
DataGridView1.Refresh()

End Sub

BRUNOGOMES 15/10/2012 21:04:04
#412105

esse Myreader1 para mim seria mysqldatareader??
e esse mytable1 é datatable ?

OMAR2011 15/10/2012 21:05:23
#412106

Dim CN1 As New SqlConnection
Dim CnrStr1 As String
Dim MyReader1 As SqlDataReader
Dim Adaptador1 As New SqlDataAdapter
Dim MyTable1 As New DataTable
Dim Dados1 As New DataTable
Dim CMD1 As New SqlCommand

Dim CN As New OleDb.OleDbConnection
Dim CnrStr As String
Dim MyReader As OleDbDataReader
Dim Adaptador As New OleDbDataAdapter
Dim MyTable As New DataTable
Dim Dados As New DataTable
Dim CMD As New OleDbCommand

BRUNOGOMES 15/10/2012 21:12:19
#412107

funcionou agora.. valeeu ;)