|
Here is another attempt:
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Sql As String = "ALTER TABLE Patient ADD CaseNbr Varchar(50)"
Using connection As New OleDbConnection("Data Source=.\SQLEXPRESS;Provider=SQLOLEDB;AttachDbFilename=|DataDirectory|\Patient.mdf;Integrated Security=True;User Instance=True")
Using command As New OleDbCommand(Sql, connection)
connection.Open()
command.ExecuteNonQuery()
connection.Close()
End Using
End Using
End Sub
End Class
It aborted with the following message:
No error message available, result code: DB_E_ERRORSOCCURRED(0x80040E21).
|
|
|
|
|
The connection string is wrong. You haven't told it what the database name is. Without that, it'll try to attach the same database file again, resulting in the error you got.
Driver={SQL Native Client};Server=.\SQLExpress;AttachDbFilename=|DataDirectory|mydbfile.mdf;Database=dbname;Trusted_Connection=Yes;
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
I ran the above code as a separate project.
Now, when I attempt to run my main application, it bombs out immediately with this same error!
An attempt to attach an auto-named database for file C:\Documents and Settings\Owner\My Documents\Visual Studio 2005\Projects\Add Column\Add Column\bin\Debug\patient.mdf failed. A database with the same name exists, or specified file cannot be opened, or it is located on UNC share.
|
|
|
|
|
Hello,
I want to show database information in a listbox using a SELECT query.
Something like:
lstGeselecteerdeagenten.Items.AddRange(daGroepAgent.SelectCommand(SELECT * FROM daGroepAgent))
??????????
|
|
|
|
|
You're going to have to seperate this. At least until the new version of VB.NET comes out.
Create a method that queries the database for the fields you want in the ListBox and returns it in DataTable. Then bind the ListBox to the DataTable and your done. There's no reason to use the Items.Add method.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Hello Dave,
Thanks for the info, it works.
|
|
|
|
|
Error 1 Column, parameter, or variable #1: Cannot find data type GL_Record. Clrtest
Microsoft.SqlServer.Server.SqlProcedure()
Public Shared Sub sbSetupGLProbe(ByVal Selections As StoredProcedures.GL_Record)
On Error GoTo Err_sbSetupGLProbe
sbBuildGLQuery(Selections)
Exit_sbSetupGLProbe:
Exit Sub
Err_sbSetupGLProbe:
MsgBox(Err.Description)
Resume Exit_sbSetupGLProbe
End Sub
This code will compile and deploy when the Sql Server attribute is omitted but then t_sql cannot see it.
rkj
|
|
|
|
|
It's saying that the type GLRecord doesn't exist, at least not in the StoredProcedures class or namespace.
Why are you using "On Error Goto" when it's been deprecated by Try/Catch?
reykentj wrote: This code will compile and deploy when the Sql Server attribute is omitted
What attribute? Let see the definition as it's supposed to be written.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Error 1 Column, parameter, or variable #1: Cannot find data type GL_Record. Clrtest
Public Class GL_Record
Public AccountNo As String = ""
Public AccountField As String = ""
Public Year As Integer = 0
Public Month As Integer = 0
Public YTD As Decimal = 0
Public MTD As Decimal = 0
Public LastTransAmount As Decimal
Public LastTransDate As Date = "01/01/01"
Public LastTransBy As String = ""
Public LastEffectiveDate As Date = "01/01/01"
Public NumberOfTrans As Long = 0
End Class
<microsoft.sqlserver.server.sqlprocedure()> _
Public Shared Sub sbSetupGLProbe(ByVal Selections As GL_Record)
Dim stDocName As String
Dim result As Long = 0
On Error GoTo Err_sbSetupGLProbe
sbBuildGLQuery(Selections)
stDocName = "rptGL_Probe"
'DoCmd.OpenReport(stDocName, acPreview)
Exit_sbSetupGLProbe:
Exit Sub
Err_sbSetupGLProbe:
MsgBox(Err.Description)
Resume Exit_sbSetupGLProbe
End Sub
On Error is being used because this is a conversion of small modules which may be later converted to try catch
rkj
|
|
|
|
|
Repost the code (Copy and Paste) and make sure you enable the "Ignore HTML tags in this message" checkbox before you hit "Post Message".
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Error 1 Column, parameter, or variable #1: Cannot find data type GL_Record.
Public Class GL_Record
Public AccountNo As String = ""
Public AccountField As String = ""
Public Year As Integer = 0
Public Month As Integer = 0
Public YTD As Decimal = 0
Public MTD As Decimal = 0
Public LastTransAmount As Decimal
Public LastTransDate As Date = "01/01/01"
Public LastTransBy As String = ""
Public LastEffectiveDate As Date = "01/01/01"
Public NumberOfTrans As Long = 0
End Class
<Microsoft.SqlServer.Server.SqlProcedure()> _
Public Shared Sub sbSetupGLProbe(ByVal Selections As StoredProcedures.GL_Record)
Dim stDocName As String
Dim result As Long = 0
On Error GoTo Err_sbSetupGLProbe
sbBuildGLQuery(Selections)
stDocName = "rptGL_Probe"
'DoCmd.OpenReport(stDocName, acPreview)
Exit_sbSetupGLProbe:
Exit Sub
Err_sbSetupGLProbe:
MsgBox(Err.Description)
Resume Exit_sbSetupGLProbe
End Sub
Thank you for that suggestion. This code complies withou error but fails on deployment.
rkj
|
|
|
|
|
urgent!!! Does some body got some code project for BHO with VB or VB.net??? Any sample thats ok,,,thx
|
|
|
|
|
|
thx
do u have AD AUTO-POPUP code inside IE?
|
|
|
|
|
Try with this JavaScript
<SCRIPT TYPE="text/javascript"><br />
<!--<br />
function popup(mylink, windowname)<br />
{<br />
if (! window.focus)return true;<br />
var href;<br />
if (typeof(mylink) == 'string')<br />
href=mylink;<br />
else<br />
href=mylink.href;<br />
window.open(href, windowname, 'width=400,height=200,scrollbars=yes');<br />
return false;<br />
}<br />
</SCRIPT><br />
Regards,
Satips.
|
|
|
|
|
thx，that is useful,,,
Regards
Henry
|
|
|
|
|
Hi everyone
I need to create flowlayout in run time,in fact i did it but the graph that must be drawn on it ,does not show
i use breakpoint ,and i am sure that the procedure of drawing graph work correctly and my mistake is in defining flowlayoutpanel,plz help me to solve the problem
thanks alot
|
|
|
|
|
make sure you have me.controls.add(example) in your code. example being the defined name of your flow layout panel.
Posted by The ANZAC
|
|
|
|
|
Create a user control that contains the 'graph' and the flowlayoutpanel. Then just add the user control during runtime.
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my homepage Oracle Studios[ ^]
|
|
|
|
|
Hi,
I need users to click particular cell in list view, and on click need to change its back color.
I am having 3 rows and 4 columns. I need users to able to click on any row, 2 column cells, and on click i need to change its back color?
How to do this, any help?
Rams.
Be simple and Be sample.
|
|
|
|
|
when i run any project in .net, server controls like command button, text boxes, list boxes etc. are not visible. It might be a IIS problem. but how to correct it.
Chaitra N
|
|
|
|
|
Re-Install IIS.
"A good programmer is someone who looks both ways before crossing a one-way street." -- Doug Linder
coolestCoder
|
|
|
|
|
Run aspnet_regiis from your .NET folder, sounds like ASP.NET in not installed. Reinstalling IIS would certainly mean you'd need to do this, before it would work again.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
i am developing a project with asp.net web application and vb script. When i try to connect the interface wit the database it is giving errors. I am using datacommand.
what might be the reason for error?
Chaitra N
|
|
|
|
|
n_gchaitra wrote: what might be the reason for error?
How are we supposed to know if you don't supply the error message? A snippet of the code you're using would also help.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
