Nesoulad datových typů ve výrazu – Visual Basic – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Nesoulad datových typů ve výrazu – Visual Basic – Fórum – Programujte.comNesoulad datových typů ve výrazu – Visual Basic – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
RasKoc0
Duch
31. 7. 2015   #1
-
0
-

Zdravím, mám prográmek na search, save, update a refresh záznamu z VB do excelu. Save mi neukládá data do excelu a při refresh, Search a Update mi to hází hlášku "Nesoulad datových typů ve výrazu". Zasílám i kód.

Imports System.Data.OleDb

Public Class Form1

Dim cn As New OleDbConnection
Dim cm As New OleDbCommand
Dim da As OleDbDataAdapter
Dim dt As New DataTable


Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)

cn.Close()

End Sub

Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
\'OPEN CONNECTION TO test.xls
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\\2\\test.xls;Extended Properties=Excel 8.0;"
cn.Open()

\'Load file from test.xls into DataGridView1
FillDataGridView("select * from [Data Agen$]")
End Sub

Private Sub FillDataGridView(ByVal Query As String)

da = New OleDbDataAdapter(Query, cn)
dt.Clear()
da.Fill(dt)

With DataGridView1
.DataSource = dt
.Columns(0).HeaderText = "Id"
.Columns(1).HeaderText = "Nama Agen"
.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With

End Sub


Private Sub BtnSearch_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSearch.Click

Try
FillDataGridView("select * from [Data Agen$] where id=\'" & TxtId.Text & "\'")
TxtName.Text = dt.Rows(0).Item(1)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Sub

Private Sub BtnSave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
Try
With cm
.Connection = cn
.CommandText = "insert into [Data Agen$]values(\'" & TxtId.Text & "\',\'" & TxtName.Text & "\')"
.ExecuteNonQuery()
End With

FillDataGridView("select * from [Data Agen$]")

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
Return
End Try

MsgBox("Successfully updated!", MsgBoxStyle.Information, Text)
End Sub

Private Sub BtnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdate.Click
Try
With cm
.Connection = cn
.CommandText = "Update [Data Agen$] set [nama agen] = \'" & TxtName.Text & "\' where id=\'" & TxtId.Text & "\'"
.ExecuteNonQuery()
End With

FillDataGridView("select * from [Data Agen$]")

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
Return
End Try

MsgBox("Successfully updated!", MsgBoxStyle.Information, Text)
End Sub

Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
\'Load file from test.xls into DataGridView1
FillDataGridView("select * from [Data Agen$]")
End Sub
End Class


Děkuju za pomoc. MArek

Nahlásit jako SPAM
IP: 46.135.29.–
Reklama
Reklama
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 10 hostů

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý