[Resolvido] Ajuda com base mysql

[jcbiker]

Bom dia,

criei uma base de dados no mysql e estou a tentar, consultar os registos com este código:

Using context as new baseEntities
Dim NUp = From c In context.np
					 Where c.NP.Contains(txtNP.Text)
					  Select c
		    If NUp IsNot Nothing Then

			    For Each c In NUp
				    Dim LVItem As New ListViewItem

				    LVItem.Text = c.idNP
				    LvLista.Items.Add(LVItem)
				    '  Atribui as demais linhas ao subitens
				    LVItem.SubItems.Add("")
				    LVItem.SubItems.Add(c.NP)
				    Dim dt As Date = c.Entrada
				   LVItem.SubItems.Add(Format(dt, "dd-MM-yyyy"))

			    Next
		    Else


			    LvLista.Clear()
			    LvLista.Visible = False

		    End If
	    End Using

mas quando chega ao ciclo for dá este erro:

Unable to cast object of type 'System.Data.SqlServerCe.SqlCeConnection' to type 'MySql.Data.MySqlClient.MySqlConnection'.

alguém me pode ajudar

[nelsonr]

Boas,

e onde é que arranjaste esse código?

Pelo que diz na mensagem de erro, estás a misturar objectos de ligações de diferentes tipos, que não são compativeis (SqlServerCe vs MySql)

Como é que está definido o baseEntities?

[jcbiker]

Simplemente criei a base no mYsql.

depois adicionei através ADO.NET Entity Data Model, como faço sqlServer

A coneção é esta:

metadata=res://*/Model2.csdl|res://*/Model2.ssdl|res://*/Model2.msl;provider=System.Data.SqlClient;provider connection string='Data Source=.\SQLEXPRESS;AttachDbFilename="C:\Documents and Settings\Administrator\My Documents\EIC.mdf";Integrated Security=True;Connect Timeout=30;User Instance=True'

[nelsonr]

Vieste este exemplo?

http://dev.mysql.com/doc/refman/5.1/en/connector-net-tutorials-entity-framework-winform-data-source.html

Julgo que houve ai algures uma mistura de SQLServer com MySQL.

[jcbiker]

Ok. Obrigado.

Julgo ter percebido o erro.

[jcbiker]

Já resolvi Obrigado.

Mas agora estou a utilizar este código

Para consulta:

Using context As New NUPEntities1

		    LvLista.Visible = True
		    LvLista.Clear()
		    LvLista.View = View.Details
		    'colunas criadas com nome da coluna e largura
		    LvLista.Columns.Add("ID", 0)
		    LvLista.Columns.Add("id", 0)
		    LvLista.Columns.Add("NUP", 100)
		    LvLista.Columns.Add("Data Entrada", 75)
		    Dim NUp = From c In context.NP
					 Where c.NP.Contains(txtNP.Text)
					  Select c


		    For Each c In NUp
			    Dim LVItem As New ListViewItem

			    LVItem.Text = c.idNP
			    LvLista.Items.Add(LVItem)
			    ' Atribui as demais linhas ao subitens
			    LVItem.SubItems.Add("")
			    LVItem.SubItems.Add(c.NP)
			    'Dim dt As Date = c.Entrada
			    '  LVItem.SubItems.Add(Format(dt, "dd-MM-yyyy"))

		    Next

Para Adicionar:

Using cont As New nupEntities1
					    Dim adnp As New np With
												   {
													   .Nup = txtNp.Text
															    }
					    context.np.AddObject(adnp)
					    context.SaveChanges()
					    Dim pesq1 = (From j In context.nuipc
								  Where j.Np = txtNp.Text
								  Select j).FirstOrDefault
					    lblid.Text = pesq1.idNp

					    Exit Sub
				    End Using

Nâo dá erro, no entanto no gravar faz tudo como se tivesse gravado, mas quando vou consultar não devolve qualquer resultado

[jcbiker]

O código de gravar funciona o ciclo for é que está errado ou falta alguma coisa.

Alguem me pode ajudar

Edited September 23, 2013 at 01:33 PM by jcbiker