Hi,
Could you please take a look and tell me what this means?
Cor has tried to help me, but we haven't found it yet.
Everytime I run this code, I get an exception error.
Here is my code:
Dim connStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=" &
Me.txtFile.Text
Dim SQLstr As String = "SELECT * FROM sitelist"
Dim cn As New OleDb.OleDbConnection(connStr)
Dim da As New OleDb.OleDbDataAdapter(SQLstr, cn)
Dim ds As New DataSet
pgBar.Value = 0
pgBar.Refresh()
da.Fill(ds, "sitelist")
pgBar.Value += 1
pgBar.Refresh()
dgMain.DataSource = ds
dgMain.DataMember = "Sitelist"
dgMain.Refresh()
cn.Close()
'FileNaam = FileNaam.Replace("sitelijst.mdb", "sitelist.mdf")
Dim con As New SqlConnection("Server=(local);database=;Integrated
Security=SSPI")
Dim cmd1 As New SqlCommand("DROP DATABASE sitelist", con)
con.Open()
Try
cmd1.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Dim strSQL As String = "CREATE DATABASE sitelist"
Dim cmd2 As New SqlCommand(strSQL, con)
Try
cmd2.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
cmd2.CommandText = "USE sitelist " & vbCrLf & _
"CREATE TABLE sites (sitenummer NVARCHAR(10), " & _
"adres NVARCHAR(255), gemeente NVARCHAR(25), " & _
"[Type site] NVARCHAR(25), bsc NVARCHAR(35), " & _
"Safety NVARCHAR(25), [X pos] NVARCHAR(15), " & _
"[Y pos] NVARCHAR(15), verantwoordelijke NVARCHAR(25), " & _
"online NVARCHAR(15), CONSTRAINT [pk_indentFT] PRIMARY " & _
"KEY CLUSTERED(sitenummer))"
Try
cmd2.ExecuteNonQuery()
Catch ex As Exception
'do nothing
End Try
con.Close()
Dim sqlNewstr As String
con = New SqlConnection("Server=(local);Database=sitelist;In tegrated
Security=SSPI;")
Dim sqlDa = New SqlDataAdapter
sqlDa.SelectCommand = New SqlCommand("SELECT * FROM sites", con)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(sqlDa)
cb.QuoteSuffix = "["
cb.QuotePrefix = "]"
Dim dstoo As New DataSet
sqlDa.Fill(dstoo, "Sites") 'connect the dataset to the empty table
Dim ab As Integer
Dim dr As DataRow
For ab = 0 To ds.Tables(0).Rows.Count - 1
dr = dstoo.Tables(0).NewRow()
dr(0) = ds.Tables(0).Rows(ab)(0)
dr(1) = ds.Tables(0).Rows(ab)(1)
dr(2) = ds.Tables(0).Rows(ab)(2)
dr(3) = ds.Tables(0).Rows(ab)(3)
dr(4) = ds.Tables(0).Rows(ab)(4)
dr(5) = ds.Tables(0).Rows(ab)(5)
dr(6) = ds.Tables(0).Rows(ab)(6)
dr(7) = ds.Tables(0).Rows(ab)(7)
dr(8) = ds.Tables(0).Rows(ab)(8)
dr(9) = ds.Tables(0).Rows(ab)(9)
dstoo.Tables(0).Rows.Add(dr) 'add the new rows to the table
Next
dgSec.DataSource = dstoo
dgSec.DataMember = dstoo.Tables(0).TableName
dgSec.Refresh()
MsgBox("continue?") 'just to be able to look at the datagrid
If dstoo.HasChanges Then
Try
sqlDa.Update(dstoo, dstoo.Tables(0).TableName)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End If
dstoo.AcceptChanges() 'make all changes permanent
dgMain.DataSource = dstoo
dgMain.DataMember = dstoo.Tables(0).TableName
sqlDa.Fill(ds, "Sites") 'connect the dataset to the table
dgSec.DataSource = ds
dgSec.DataMember = "Sites" 'check the table for new data
con.Close()
MsgBox("Ready") 'finished
End Sub
and this is the message I get on the line
"sqlDa.Update(dstoo,dstoo.Tables(0).TableName) "
System.Data.SqlClient.SqlException: Line 1: wrong syntaxis at ].
at
Microsoft.VisualBasic.CompilerServices.LateBinding .InternalLateCall(Object
o, Type objType, String name, Object[] args, String[] paramnames, Boolean[]
CopyBack, Boolean IgnoreReturn)
at Microsoft.VisualBasic.CompilerServices.LateBinding .LateCall(Object o,
Type objType, String name, Object[] args, String[] paramnames, Boolean[]
CopyBack)
at MDBtoSDF.Form1.btConvert_Click(Object sender, EventArgs e) in
D:\VB.NET projecten\PPC\MDBtoSDF\Form1.vb:line 264
I don't have a clue what it all means...
rg,
Eric 8 1326
Hi,
It seems to me that commandbuilder generated invalid insert sql statament.
Can you extract it? (sqlDa.InsertCommand.CommandText)
--
Miha Markic - RightHand .NET consulting & development
miha at rthand com
"EMW" <so*****@microsoft.com> wrote in message
news:3f**********************@dreader2.news.tiscal i.nl... Hi,
Could you please take a look and tell me what this means? Cor has tried to help me, but we haven't found it yet.
Everytime I run this code, I get an exception error.
Here is my code:
Dim connStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=" & Me.txtFile.Text Dim SQLstr As String = "SELECT * FROM sitelist" Dim cn As New OleDb.OleDbConnection(connStr) Dim da As New OleDb.OleDbDataAdapter(SQLstr, cn) Dim ds As New DataSet pgBar.Value = 0 pgBar.Refresh() da.Fill(ds, "sitelist") pgBar.Value += 1 pgBar.Refresh() dgMain.DataSource = ds dgMain.DataMember = "Sitelist" dgMain.Refresh() cn.Close() 'FileNaam = FileNaam.Replace("sitelijst.mdb", "sitelist.mdf") Dim con As New SqlConnection("Server=(local);database=;Integrated Security=SSPI") Dim cmd1 As New SqlCommand("DROP DATABASE sitelist", con) con.Open() Try cmd1.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.ToString) End Try Dim strSQL As String = "CREATE DATABASE sitelist" Dim cmd2 As New SqlCommand(strSQL, con) Try cmd2.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.ToString) End Try cmd2.CommandText = "USE sitelist " & vbCrLf & _ "CREATE TABLE sites (sitenummer NVARCHAR(10), " & _ "adres NVARCHAR(255), gemeente NVARCHAR(25), " & _ "[Type site] NVARCHAR(25), bsc NVARCHAR(35), " & _ "Safety NVARCHAR(25), [X pos] NVARCHAR(15), " & _ "[Y pos] NVARCHAR(15), verantwoordelijke NVARCHAR(25), " & _ "online NVARCHAR(15), CONSTRAINT [pk_indentFT] PRIMARY " & _ "KEY CLUSTERED(sitenummer))" Try cmd2.ExecuteNonQuery() Catch ex As Exception 'do nothing End Try con.Close() Dim sqlNewstr As String con = New SqlConnection("Server=(local);Database=sitelist;In tegrated Security=SSPI;") Dim sqlDa = New SqlDataAdapter sqlDa.SelectCommand = New SqlCommand("SELECT * FROM sites", con) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(sqlDa) cb.QuoteSuffix = "[" cb.QuotePrefix = "]" Dim dstoo As New DataSet sqlDa.Fill(dstoo, "Sites") 'connect the dataset to the empty table Dim ab As Integer Dim dr As DataRow For ab = 0 To ds.Tables(0).Rows.Count - 1 dr = dstoo.Tables(0).NewRow() dr(0) = ds.Tables(0).Rows(ab)(0) dr(1) = ds.Tables(0).Rows(ab)(1) dr(2) = ds.Tables(0).Rows(ab)(2) dr(3) = ds.Tables(0).Rows(ab)(3) dr(4) = ds.Tables(0).Rows(ab)(4) dr(5) = ds.Tables(0).Rows(ab)(5) dr(6) = ds.Tables(0).Rows(ab)(6) dr(7) = ds.Tables(0).Rows(ab)(7) dr(8) = ds.Tables(0).Rows(ab)(8) dr(9) = ds.Tables(0).Rows(ab)(9) dstoo.Tables(0).Rows.Add(dr) 'add the new rows to the table Next dgSec.DataSource = dstoo dgSec.DataMember = dstoo.Tables(0).TableName dgSec.Refresh() MsgBox("continue?") 'just to be able to look at the datagrid If dstoo.HasChanges Then Try sqlDa.Update(dstoo, dstoo.Tables(0).TableName) Catch ex As Exception MsgBox(ex.ToString) End Try End If dstoo.AcceptChanges() 'make all changes permanent dgMain.DataSource = dstoo dgMain.DataMember = dstoo.Tables(0).TableName sqlDa.Fill(ds, "Sites") 'connect the dataset to the table dgSec.DataSource = ds dgSec.DataMember = "Sites" 'check the table for new data con.Close() MsgBox("Ready") 'finished End Sub
and this is the message I get on the line "sqlDa.Update(dstoo,dstoo.Tables(0).TableName) "
System.Data.SqlClient.SqlException: Line 1: wrong syntaxis at ]. at Microsoft.VisualBasic.CompilerServices.LateBinding .InternalLateCall(Object o, Type objType, String name, Object[] args, String[] paramnames,
Boolean[] CopyBack, Boolean IgnoreReturn) at Microsoft.VisualBasic.CompilerServices.LateBinding .LateCall(Object
o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack) at MDBtoSDF.Form1.btConvert_Click(Object sender, EventArgs e) in D:\VB.NET projecten\PPC\MDBtoSDF\Form1.vb:line 264
I don't have a clue what it all means...
rg, Eric
Sorry, what do you mean?
"Miha Markic" <miha at rthand com> schreef in bericht
news:Oi**************@TK2MSFTNGP11.phx.gbl... Hi,
It seems to me that commandbuilder generated invalid insert sql statament. Can you extract it? (sqlDa.InsertCommand.CommandText)
-- Miha Markic - RightHand .NET consulting & development miha at rthand com
"EMW" <so*****@microsoft.com> wrote in message news:3f**********************@dreader2.news.tiscal i.nl... Hi,
Could you please take a look and tell me what this means? Cor has tried to help me, but we haven't found it yet.
Everytime I run this code, I get an exception error.
Here is my code:
Dim connStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source="
& Me.txtFile.Text Dim SQLstr As String = "SELECT * FROM sitelist" Dim cn As New OleDb.OleDbConnection(connStr) Dim da As New OleDb.OleDbDataAdapter(SQLstr, cn) Dim ds As New DataSet pgBar.Value = 0 pgBar.Refresh() da.Fill(ds, "sitelist") pgBar.Value += 1 pgBar.Refresh() dgMain.DataSource = ds dgMain.DataMember = "Sitelist" dgMain.Refresh() cn.Close() 'FileNaam = FileNaam.Replace("sitelijst.mdb", "sitelist.mdf") Dim con As New SqlConnection("Server=(local);database=;Integrated Security=SSPI") Dim cmd1 As New SqlCommand("DROP DATABASE sitelist", con) con.Open() Try cmd1.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.ToString) End Try Dim strSQL As String = "CREATE DATABASE sitelist" Dim cmd2 As New SqlCommand(strSQL, con) Try cmd2.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.ToString) End Try cmd2.CommandText = "USE sitelist " & vbCrLf & _ "CREATE TABLE sites (sitenummer NVARCHAR(10), " & _ "adres NVARCHAR(255), gemeente NVARCHAR(25), " & _ "[Type site] NVARCHAR(25), bsc NVARCHAR(35), " & _ "Safety NVARCHAR(25), [X pos] NVARCHAR(15), " & _ "[Y pos] NVARCHAR(15), verantwoordelijke NVARCHAR(25), " & _ "online NVARCHAR(15), CONSTRAINT [pk_indentFT] PRIMARY " & _ "KEY CLUSTERED(sitenummer))" Try cmd2.ExecuteNonQuery() Catch ex As Exception 'do nothing End Try con.Close() Dim sqlNewstr As String con = New SqlConnection("Server=(local);Database=sitelist;In tegrated Security=SSPI;") Dim sqlDa = New SqlDataAdapter sqlDa.SelectCommand = New SqlCommand("SELECT * FROM sites", con) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(sqlDa) cb.QuoteSuffix = "[" cb.QuotePrefix = "]" Dim dstoo As New DataSet sqlDa.Fill(dstoo, "Sites") 'connect the dataset to the empty table Dim ab As Integer Dim dr As DataRow For ab = 0 To ds.Tables(0).Rows.Count - 1 dr = dstoo.Tables(0).NewRow() dr(0) = ds.Tables(0).Rows(ab)(0) dr(1) = ds.Tables(0).Rows(ab)(1) dr(2) = ds.Tables(0).Rows(ab)(2) dr(3) = ds.Tables(0).Rows(ab)(3) dr(4) = ds.Tables(0).Rows(ab)(4) dr(5) = ds.Tables(0).Rows(ab)(5) dr(6) = ds.Tables(0).Rows(ab)(6) dr(7) = ds.Tables(0).Rows(ab)(7) dr(8) = ds.Tables(0).Rows(ab)(8) dr(9) = ds.Tables(0).Rows(ab)(9) dstoo.Tables(0).Rows.Add(dr) 'add the new rows to the table Next dgSec.DataSource = dstoo dgSec.DataMember = dstoo.Tables(0).TableName dgSec.Refresh() MsgBox("continue?") 'just to be able to look at the datagrid If dstoo.HasChanges Then Try sqlDa.Update(dstoo, dstoo.Tables(0).TableName) Catch ex As Exception MsgBox(ex.ToString) End Try End If dstoo.AcceptChanges() 'make all changes permanent dgMain.DataSource = dstoo dgMain.DataMember = dstoo.Tables(0).TableName sqlDa.Fill(ds, "Sites") 'connect the dataset to the table dgSec.DataSource = ds dgSec.DataMember = "Sites" 'check the table for new data con.Close() MsgBox("Ready") 'finished End Sub
and this is the message I get on the line "sqlDa.Update(dstoo,dstoo.Tables(0).TableName) "
System.Data.SqlClient.SqlException: Line 1: wrong syntaxis at ]. at
Microsoft.VisualBasic.CompilerServices.LateBinding .InternalLateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack, Boolean IgnoreReturn) at
Microsoft.VisualBasic.CompilerServices.LateBinding .LateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack) at MDBtoSDF.Form1.btConvert_Click(Object sender, EventArgs e) in D:\VB.NET projecten\PPC\MDBtoSDF\Form1.vb:line 264
I don't have a clue what it all means...
rg, Eric
Hi Eric,
You took a big part of my example, but some things you did not and when you
compare it it is easy to see. I tested my example and it is full working.
I see direct this small ones change them, test and message again and take a
look at the last sentence of this message.
"> Dim sqlDa = New SqlDataAdapter
This is not in my example it should give an error it is
Dim sqlDA as New SqlDataAdapter sqlDa.Update(dstoo, dstoo.Tables(0).TableName)
And this one I know you had it in your first code also (translated to yours
it should be)
sqlDa.Update(dstoo, "Sites")
but better is (not for your program, but as example)
sqlDa.Update(dstoo.getchanges, "Sites")
change this first and look than again.
And this part I would not take in a real program, it was only for the
example. This deletes every time the database "sitelist" automaticly in your
SQL server, I dont think you want that, or maybe you want and delete it
afterwards direct.
\\\\.
Dim con As New SqlConnection("Server=(local);database=;Integrated
Security=SSPI")
Dim cmd1 As New SqlCommand("DROP DATABASE sitelist", con)
con.Open()
Try
cmd1.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
////
Cor
Thanks, Cor. I didn't see that first typo....
As for the second part, "sites" is the tablename so it should work, but I
changed it.
Unforunatly, stil the same error message...
As for the DROP DATABASE part, that is just what I want. Every month the
list is renewed so the table has to be created again.
As for the error messsage, I still don't have a clue of what it means...
rg,
Eric
"Cor" <no*@non.com> schreef in bericht
news:%2****************@TK2MSFTNGP09.phx.gbl... Hi Eric,
You took a big part of my example, but some things you did not and when
you compare it it is easy to see. I tested my example and it is full working.
I see direct this small ones change them, test and message again and take
a look at the last sentence of this message.
"> Dim sqlDa = New SqlDataAdapter This is not in my example it should give an error it is Dim sqlDA as New SqlDataAdapter
sqlDa.Update(dstoo, dstoo.Tables(0).TableName) And this one I know you had it in your first code also (translated to
yours it should be) sqlDa.Update(dstoo, "Sites")
but better is (not for your program, but as example) sqlDa.Update(dstoo.getchanges, "Sites")
change this first and look than again.
And this part I would not take in a real program, it was only for the example. This deletes every time the database "sitelist" automaticly in
your SQL server, I dont think you want that, or maybe you want and delete it afterwards direct. \\\\. Dim con As New SqlConnection("Server=(local);database=;Integrated Security=SSPI") Dim cmd1 As New SqlCommand("DROP DATABASE sitelist", con) con.Open() Try cmd1.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.ToString) End Try ////
Cor
> As for the second part, "sites" is the tablename so it should work, but I changed it. Unforunatly, stil the same error message...
You are right about that tablename "Sites", only never did it that way so it
did look strange to me. I hope you did it with an uppercase or changed it
back as it was so we are now not looking to an error because of a lowercase.
Do you see that datagrid before the update?
Eric,
I oversaw this in your program,
When I add this in my sample program also, I get almost the same error as
you,
cb.QuoteSuffix = "["
cb.QuotePrefix = "]"
I don't know why you added it, but try it once with removing it.
Cor
It is absolutly amazing, but I got it working.
It was those lines with the quotesuffix/prefix AND the names of the columns
in the sql database.
One of the names was "Type Site" and the exception came because Site is used
for something else.
I made it one word "TypeSite" and the problem was fixed.
Thanks for all your help and time!!!!
rg,
Eric
"Cor" <no*@non.com> schreef in bericht
news:eQ**************@TK2MSFTNGP09.phx.gbl... Eric,
I oversaw this in your program,
When I add this in my sample program also, I get almost the same error as you, cb.QuoteSuffix = "[" cb.QuotePrefix = "]" I don't know why you added it, but try it once with removing it.
Cor
Hi Eric,
That is the second time this happens to me, the last time it was with the
word Action, I hate SQL.
But I am glad you solved it, don't forget to add all things as error and
lock trapping.
It did cost me PSV but I am happy it is not with Ajax tonight
Cor It was those lines with the quotesuffix/prefix AND the names of the
columns in the sql database. One of the names was "Type Site" and the exception came because Site is
used for something else. I made it one word "TypeSite" and the problem was fixed. This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: Kurt Watson |
last post by:
I’m having a different kind of problem with Hotmail when I sign in it
says, "Web Browser Software Limitations
Your Current Software Will Limit Your Ability to Use Hotmail
You are using a web...
|
by: x muzuo |
last post by:
Hi guys,
I have got a prob of javascript form validation which just doesnt work
with my ASP code. Can any one help me out please.
Here is the code:
{////<<head>
<title>IIBO Submit Page</title>...
|
by: tyler_durden |
last post by:
thanks a lot for all your help..I'm really appreciated...
with all the help I've been getting in forums I've been able to continue
my program and it's almost done, but I'm having a big problem that...
|
by: Jason |
last post by:
Hi,
I was wondering if any could point me to an example or give me ideas on how
to dynamically create a form based on a database table? So, I would have a
table designed to tell my application...
|
by: Joner |
last post by:
Hello,
I'm having trouble with a little programme of mine where I connect to
an access database. It seems to connect fine, and disconnect fine, but
then after it won't reconnect, I get the error...
|
by: David Van D |
last post by:
Hi there,
A few weeks until I begin my journey towards a degree in Computer
Science at Canterbury University in New Zealand,
Anyway the course tutors are going to be teaching us JAVA wth bluej...
|
by: PEB |
last post by:
POSTING GUIDELINES
Please follow these guidelines when posting questions
Post your question in a relevant forum
Do NOT PM questions to individual experts - This is not fair on them and...
|
by: 2Barter.net |
last post by:
newsmail@reuters.uk.ed10.net Fwd: Money for New Orleans, AL & GA
Inbox
Reply
Reply to all
Forward
Print
Add 2Barter.net to Contacts list
Delete this message
Report phishing
Show original
|
by: jenipriya |
last post by:
Hi all... its very urgent.. please........i m a beginner in oracle.... Anyone please help me wit dese codes i hv tried... and correct the errors...
The table structures i hav
Employee (EmpID,...
|
by: tabani |
last post by:
I wrote the program and its not giving me correct answer can any one help me with that please and specify my mistake please it will be highly appreciable...
The error arrives from option 'a' it asks...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: Faith0G |
last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
| |