Pandox

Bom Dia a Todos. recebo um xml de um webservice, e o coloco em uma varivel string, depois eu o transformo em um xml Dim teste As String = System.Text.Encoding.ASCII.GetString(bytRetData) Dim oXml As New Xml.XmlDocument Dim strOrderNumber As String oXml.LoadXml(teste) até ai tudo bem, porem eu preciso pegar um texto desse xml strOrderNumber = oXml.FirstChild.Item("/env:Envelope/env:Header/wsa:MessageID").InnerText.ToString mas me da um erro An unhandled exception of type 'System.NullReferenceException' occurred in WindowsApplication1.exe Additional information: Object reference not set to an instance of an object. não sei o que fazer para arrumar isso, e nem aonde estou errando

faz uma matriz com o mesmo txt só o que altera é o indice

eu não consegui passar! Eu embuti o Crystal dento do Visual Basic, e peguei a conexão por SQLServer, ele achou os bancos, porem ele não me da uma opção para MySql, eu fiz isso pelo proprio Crystal

Consegui fazer, porem com SQlServer, mas com Mysql(banco que eu utilizo não), alguém sabe como ?

uma duvida, tem alguma maneira via codigo que o meu Crystal leia e o meu .INI e encontre o banco de dados e suas tabelas ?

Realmente a Microsoft deixou de vender lincenca e o Visual Baisc 6 a algum tempo, inclusive para o final de 2009 a Microsoft ira lançar a Visual Studio 10 http://code.msdn.microsoft.com/vbfuture deem uma olhada já tem a versão de teste !

quando tenho duvidas eu entro nele !

a dll substitui o Adodc e assim sendo ela substitui o recordset. um exemplo: Quando eu declarava um Recordset assim Dim rsTeste as Recordset agora eu declaro assim Dim rsTeste as Mysql_Rs quando eu fazia um select no recordset, era assim Set rsTeste = arqmdb.OpenRecordset("Select table * from",dbOpenSnapShot) agora é assim Set rsTeste = gmyconn.Execute("Select table * from") isso que muda, essa dll alem de substituir a Odbc, ela faz um recordset em memoria

então você especifica um diretorio, mas pelo que eu entendi ele tem que varrer o HD inteiro, e pode ocorrer de te um HD particionado ! esse tutoriais são muito Bons !

Kuroi, eu dei uma olhada no tópico que você me passou, eu consegui fazer uma tabela via Crystal, porem como eu que passo os dados para aquela tabela ?

a função Dir você podera usar quando você sabe a pasta onde esta o diretorio

Eu utilizo duas dll´s chamada MyVbQL.dll e a libmysql.dll, ambas juntamente com o meu codigo fazem a conexão com o Banco de Dados, caso você ou alguém queira saber sobre isso me fale que eu explico direito e mando as dll´s, porem uma coisa eu garanto o seu programa fica muito mais rapido, porem é muita mão de obra. eu tive problemas com varios clientes que mudaram para Windows Server 2003 e a conexão ficou muito lenta, isso quando o projeto entreva, ai fizemos o teste desta conexão nativa e o projeto teve uma grande evolução em processamento. eu irei dar uma olhada no tópico que você me mandou para dar um olhada. Muito Obrigado !

mas você sabe onde este arquivo esta ? ou você quer fazer algo parecido com a Pesquisa que temos no proprio WIndows ?

Jobas uma duvida, você sabera exatamente quantos Bytes ira ter esse arquivo ?

Kuroi, obrigado pela ajuda, porem eu estou tirando qualquer referencia de componentes do meu projeto ou seja, eu queria fazr um conexao Nativa mesmo, sem ADO, ODBC, DAO, vou te dar um exemplo, no meu projeto eu tenho um .INI onde eu coloco todas as referencias de onde esta o meu bando. Dim cArq As String, wQry As String, nH As Long, wP As String, ws As String If App.PrevInstance Then MsgBox ("A aplicação já se encontra aberta !") End End If projeto = "TRANSPORTE" DbDir = "" ImpNF = "" nH = GetDesktopWindow 'Pega o Handler da Screen cArq = App.Path + "\TRANSP.Ini" If Dir(cArq) <> "" Then Open cArq For Input Access Read As #1 Do While Not EOF(1) Line Input #1, wQry If InStr(wQry, "SER=") > 0 Then Srv = Mid(wQry, InStr(wQry, "=") + 1, Len(Trim(wQry))) ElseIf InStr(wQry, "BCO=") > 0 Then Bco = UCase(Mid(wQry, InStr(wQry, "=") + 1, Len(Trim(wQry)))) ElseIf InStr(wQry, "UID=") > 0 Then Usr = Mid(wQry, InStr(wQry, "=") + 1, Len(Trim(wQry))) ElseIf InStr(wQry, "PWD=") > 0 Then PWD = Val(Mid(wQry, InStr(wQry, "=") + 1, Len(Trim(wQry)))) If PWD = 0 Then PWD = "" ElseIf InStr(wQry, "PRT=") > 0 Then Porta = Val(Mid(wQry, InStr(wQry, "=") + 1, Len(Trim(wQry)))) End If Loop Close #1 End If nesse codigo eu pego as informações do meu INI gMyConn.SetOption MYSQL_OPT_COMPRESS gMyConn.OpenConnection Srv, Usr, PWD, Bco, 3306 If gMyConn.State = MY_CONN_OPEN Then aqui eu faço o teste para ver se eu me conectei com o Banco, por isso eu não quero nenhuma ligações pois já tive muitos problemas com ODBC. tem como fazer uma ligação nativa com o Crystal, só referenciando a tabela ? Obrigado