Jump to content
Sign in to follow this  
jcbiker

[Resolvido] Ajuda com base mysql

Recommended Posts

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

Share this post


Link to post
Share on other sites
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?

Share this post


Link to post
Share on other sites
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'

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
jcbiker

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

Alguem me pode ajudar

Edited by jcbiker

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.