|
no problem.
i would advise against doing it the way you said you were able to get around your problem for two main reasons.
1. you are going to have problems updating back to the datasource. this is because you've changed the structure of the table. when you use fill from the dataadapter to populate a table the dataadapter itself holds information regarding the information that was pulled and automatically creates insert, update and delete statements based on the structure of what was initially pulled. you could certainly call myAdapter.Update(myNewTable) but it will no doubt cause problems because the structure has changed. This is of course unless you manually update the commandtext property of the corresponding commands to reflect the structure of the new table.
2. you are incurring an unnecessary performance hit by copying the data from the table that is returned by the adapter into a new table. this will be more of an issue as the amount of data returned increases.
so basically, you can do it this way, but i don't really think it's necessary in your situation. my recommendation would be to just pull the data out using the dataadapter, let the user update the data, and use the same dataadapter to update, if possible.
If using the same dataadapter isn't possible, then you have to look into how to set the properties of the dataadatper and it's underlying Insert, Update, and Delete Commands and their corresponding CommandText properties to get the data back into the database correctly.
- jim
|
|
|
|
|
I kinda thought that it might be a problem. I am trying to get a dataGrid style to work, but I can't find a lot on it. This is what I have so far on the methods that links the dataSet and the dataGrid
I have created the style through the menus, creating the grid style and all column styles to hide certain columns, but I am having a hard time makig the datagrid use the style. There does not seem to be a lot written on this subject.
|
|
|
|
|
i had a hard time when first using these as well. the more you use them the easier it gets.
i would say first, make sure that all of the mappingname properties for the tablestyle and columnstyles are spelled correctly.
tablestyle.mappingname should = datatable.tablename
columnstyle.mappingname should = datatable.cols(x).columnname (i.e. the column it should map to)
if the grid isn't using the tablestyle at all the most likely culprit would be the tablestyle mappingname property.
-jim
|
|
|
|
|
ya it was the tableStyle mapping property, but I was leaving that out because I was trying to set that within the code to allow different functions to display different columns.
Is the mapping name mor for assigning different styles to different tables within the datagrid? Because I can't figure out how to do it via code.
|
|
|
|
|
ok, I think I am just too tired to think, but I see how to do it now. Disregard that last post.
|
|
|
|
|
well I got everything working the way that I want to. Thanks again for the help
|
|
|
|
|
no problem, glad it worked out for ya. sorry for the lack of responsiveness, i had left work and have spent the last few hours playing in the backyard with my daughter... some things are more important you know. 
just in case though, as for the last post, if you just create multiple tablestyles and give them the appropriate mapping name based on the table you want them to display, the grid will take care of handling everything for you. then you can have the parent table display one way (for example: light blue background) a first child table another (light green background) and a second child table a third (orange background) it's pretty flexible. the ony real downside is the maintenance if columnnames change etc.
take it easy.
-jim
|
|
|
|
|
what if you want different table styles pointing to the same table. The app that I am working on is one that is used to correct tests. There is more than one type of error. Right now I have all the data being retrieved and thrown into the same table. I may have to change this is base the query on the correction mode and insert the data into different datatables, I really should do this, but I am still curious of the present problem.
I would like to create tablestyles, which I though that I did, so that in the different correction modes different columns are displayed, but I get an error when I try to do this:
<br />
An unhandled exception of type 'System.ArgumentException' occurred in system.windows.forms.dll<br />
<br />
Additional information: The data grid table styles collection already contains a table style with the same mapping name.<br />
Now they are the same mapping name, because the mapping name is the name of the table right?
Thanks for the help
|
|
|
|
|
I know that in listview or other control, we can do right click event using MouseUp. However, menuItem of Mainmenu doesn't have that. Could somebody please show me how to implement right click event on MenuItem of Mainmenu in vb.net?
Thanks a bunch for helping.
|
|
|
|
|
In theory, you would have to derive a new class from the MainMenu class and override its WndProc to handle the WM_RBUTTONDOWN message with you own custom right-click code.
But, Right-clicking on menu items is not part of the Windows user interface standards, so users don't normally right click on menu items. For instance, Menu Tear-offs are normally accomplished using a Left click and hold, then drag.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I am using MMControl for playing a midi file on my software. I have never had it work on my computer, but the computer that I originally programmed on never had a problem. I am getting the error
"Run-time error '424':
Object required"
and the Debug option takes me to the first line where I use MMControl. I have also tried it on someone elses computer and it works fine. I attempted to take the code from their computer back to mine and I get
"Errors during load. Refer to <some path="">.log' for details"
I visited the log file and find
Line 13: Cannot load control MMControl; license not found.
Which to me is an odd error. What does this mean I need to do?
Thanks in advance,
Red Sunday
-----------------
http://www.zachcalvert.com
|
|
|
|
|
You must copy over and register the MMCONTROL.OCX and, if you have it, the MCI32.OCX file on the target machine. You can't just copy it over and expect it to work. If it is already in the System32 directory on the target machine, unregister and register the control.
C:\WINDOWS\SYSTEM32>regsvr32 /u mmcontrol.ocx
C:\WINDOWS\SYSTEM32>regsvr32 mmcontrol.ocx
Do the same for MCI32.OCX.
If it still does not work, you'll need a fix the license information in the registry.
See this[^] article on MSDN for more information.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I tried the regsvr32 bit and it didn't work.
First off, the working computer does not have mmcontrol.ocx it only has the MCI32.ocx. We un-registered and re-registered this file and get the same error.
Next, we are using VB 6.0 on BOTH systems. Neither one are using the .NET structures. I appreciate your help...we are soooo stuck.
Red Sunday
-----------------
http://www.zachcalvert.com
|
|
|
|
|
In that case, the licesing is screwed up and you have to refere to the Microsoft page I put in my first post. What you need to do is get ahold of MS Support as directed in that page and they'll send you a reg file that will correct the problem.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I found some vb script code on the internet that can convert a comma delimited text file into an mdb file. Here is the code.
--------------------------------------------------------------------------
'NBM 04/10/2001
'Declare constants
Const Jet10 = 1
Const Jet11 = 2
Const Jet20 = 3
Const Jet3x = 4
Const Jet4x = 5
'Routine to create MDB file.
Sub createNewMDB(FileName, Format)
Const adInteger = 3
Const adVarWChar = 202
Const adVarChar = 200
Const adCollNullable = 2
Dim Catalog
Set Catalog = CreateObject("ADOX.Catalog")
Catalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDB:Engine Type=" & Format & _
";Data Source=" & FileName
Dim objListTable, objColumn
Set objListTable = CreateObject("ADOX.Table")
objListTable.Name = "List"
objListTable.Columns.Append "TestCount", adVarWChar, 40
objListTable.Columns.Append "TestTime", adVarWChar, 50
objListTable.Columns.Append "TestDate", adVarWChar, 50
objListTable.Columns.Append "SerialNumber", adVarWChar, 50
objListTable.Columns.Append "CylinderSize", adVarWChar, 40
objListTable.Columns.Append "CylinderService", adVarWChar, 30
objListTable.Columns.Append "CylinderManufacturer", adVarWChar, 10
objListTable.Columns.Append "DOTRating", adVarWChar, 35
objListTable.Columns.Append "TestPressure", adVarWChar, 30
objListTable.Columns.Append "ActualPressure", adVarWChar, 20
objListTable.Columns.Append "TestDuration", adVarWChar, 20
objListTable.Columns.Append "TotalExpansion", adVarWChar, 45
objListTable.Columns.Append "PermExpansion", adVarWChar, 45
objListTable.Columns.Append "PercentPermanentExpansion", adVarWChar, 45
objListTable.Columns.Append "ElasticExpansion", adVarWChar, 45
objListTable.Columns.Append "REE", adVarWChar, 45
objListTable.Columns.Append "Disposition", adVarWChar, 45
objListTable.Columns.Append "PlusStar", adVarWChar, 45
objListTable.Columns.Append "Remarks", adVarWChar, 45
objListTable.Columns.Append "CylinderOwner", adVarWChar, 45
objListTable.Columns.Append "NotKnown", adVarWChar, 45
objListTable.Columns.Append "Source", adVarWChar, 45
objListTable.Columns.Append "ManufactureDate", adVarWChar, 45
objListTable.Columns.Append "Unit", adVarWChar, 45
For Each objColumn in objListTable.Columns
objColumn.Attributes = adCollNullable
Next
Catalog.Tables.Append objListTable
End Sub
Sub convertCSVtoMDB(AccessFile, CSVFile)
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = &H0001
Const adOpenDynamic = 2
Const adLockOptimistic = 3
Dim fso, FileCSV
Set fso = CreateObject("Scripting.FileSystemObject")
Set FileCSV = fso.GetFile(CSVFile)
Dim objConn, objRs
Set objConn = CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & FileCSV.ParentFolder & ";" & _
"Extensions=asc,csv,tab,txt;" & _
"Persist Security Info=False"
Set objRs = CreateObject("ADODB.Recordset")
objRs.Open "Select * From " & FileCSV.Name, objConn, adOpenStatic, adCmdText
Dim objAccessConn, objAccessRs
Set objAccessConn = CreateObject("ADODB.Connection")
objAccessConn.Open "Driver={Microsoft Access Driver (*.mdb)};" &_
"Dbq=" & AccessFile & ";" & _
"Uid=Admin;" &_
"Pwd=;"
Set objAccessRs = CreateObject("ADODB.Recordset")
objAccessRs.Open "List",objAccessConn,adOpenDynamic,adLockOptimistic
Do While Not objRS.EOF
objAccessRs.AddNew
objAccessRs("TestCount") = objRs("TestCount")
objAccessRs("TestTime") = objRs("TestTime")
objAccessRs("TestDate") = objRs("TestDate")
objAccessRs("SerialNumber") = objRs("SerialNumber")
objAccessRs("CylinderSize") = objRs("CylinderSize")
objAccessRs("CylinderService") = objRs("CylinderService")
objAccessRs("CylinderManufacturer") = objRs("CylinderManufacturer")
objAccessRs("DOTRating") = objRs("DOTRating")
objAccessRs("TestPressure") = objRs("TestPressure")
objAccessRs("ActualPressure") = objRs("ActualPressure")
objAccessRs("TestDuration") = objRs("TestDuration")
objAccessRs("TotalExpansion") = objRs("TotalExpansion")
objAccessRs("PermExpansion") = objRs("PermExpansion")
objAccessRs("PercentPermanentExpansion") = objRs("PercentPermanentExpansion")
objAccessRs("ElasticExpansion") = objRs("ElasticExpansion")
objAccessRs("REE") = objRs("REE")
objAccessRs("Disposition") = objRs("Disposition")
objAccessRs("PlusStar") = objRs("PlusStar")
objAccessRs("Remarks") = objRs("Remarks")
objAccessRs("CylinderOwner") = objRs("CylinderOwner")
objAccessRs("NotKnown") = objRs("NotKnown")
objAccessRs("Source") = objRs("Source")
objAccessRs("ManufactureDate") = objRs("ManufactureDate")
objAccessRs("Unit") = objRs("TotalExpansion")
objAccessRs.Update
objRS.MoveNext
Loop
objAccessRs.Close
objAccessConn.Close
objRs.Close
objConn.Close
Set objAccessRs = Nothing
Set objAccessConn = Nothing
Set objConn = Nothing
Set objRs = Nothing
End sub
'Create Access2000 database
createNewMDB "c:\Program Files\csvdata\template.mdb", Jet4x
'Convert the CSV into the newly created MDB file.
convertCSVtoMDB "c:\Program Files\csvdata\template.mdb", "c:\Program Files\csvdata\export.csv"
--------------------------------------------------------------------------
When I run the code the export.csv file is converted into the template.mdb file. If the template.mdb file from the previous time that the code was run has not been deleted an error message "The database already exists". So I have to delete the mdb file everytime that I run the code.
I was wondering if there was a way that someone could explain to me, so that I would not have to delete the mdb file everytime? In other words the code would simply overwrite the mdb file. Is this possible? Could someone help me?
Thanks.
|
|
|
|
|
Do you want to delete the database file automatically so you don't have to do it by hand?
Or do you want to add the new data to the existing database?
The code you posted creates the database .MDB), then creates the table the data does into, the creates all the columns in the table. Do you want this database recreated every time you want the data imported from .CSV or do you want to append the new data to the existing database?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Actually I was wondering if instead of deleting or appending(adding to) to the database file, I could overwrite(replace) whatever data was in the database?
|
|
|
|
|
Hi
I have two dropdowns in one .aspx page. First is all the states in US and another is for Cities in respective state (initally it is disabled). The data for States and Cities is coming from database and I am binding that in codebehind.
Cities dropdown gets enabled after state selection. For populating cities based on state selection, I want to do a client side operation, not the server side.
Using VB.NET, Javascript.
Please suggest any code example to acheive this. Thanks
PJ
Follow your goals, Means will follow you ---Gandhi---
|
|
|
|
|
Your question would be better handled in the ASP.NET Forum.
Your solution lies entirely in JavaScript. ASP.NET is only used for generating HTML for a browser. If you were to do this entirely in VB.NET, selecting the state would require a round trip to the server.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
well - i have a problem with screenshotting and remoting.
what i do:
my server-application has an hashtable where it stores the client-objects and a pictureBox.
the client-object owns the function _captureScreen:
Public Function _captureScreen() As Image Implements IClient._captureScreen
Dim getScreenShot As ScreenShot
'myParent is the mainForm from which the client-object was created
myParent.status.Text = "Screenshot called"
myParent.Screen.Image = CType(getScreenShot.CaptureScreen(),System.Drawing.Bitmap)
Return CType(getScreenShot.CaptureScreen(),System.Drawing.Bitmap)
End Function
The class ScreenShot simply catch a bitmap of the actual screen. i got the code from the net:
Public Class ScreenShot
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal
lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As
String, ByVal lpInitData As String) As Integer
Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As
Integer) As Integer
Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As
Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
Private Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps"
(ByVal hdc As Integer, ByVal nIndex As Integer) As Integer
Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer,
ByVal hObject As Integer) As Integer
Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As Integer, ByVal
srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As
Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As
Integer, ByVal op As Integer) As Integer
Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As
Integer
Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As
Integer
Const SRCCOPY As Integer = &HCC0020
Private oBackground As Bitmap
Private FW, FH As Integer
Public Function CaptureScreen() As Image
Dim hSDC, hMDC As Integer
Dim hBMP, hBMPOld As Integer
Dim r As Integer
hSDC = CreateDC("DISPLAY", "", "", "")
hMDC = CreateCompatibleDC(hSDC)
FW = GetDeviceCaps(hSDC, 8)
FH = GetDeviceCaps(hSDC, 10)
hBMP = CreateCompatibleBitmap(hSDC, FW, FH)
hBMPOld = SelectObject(hMDC, hBMP)
r = BitBlt(hMDC, 0, 0, FW, FH, hSDC, 0, 0, 13369376)
hBMP = SelectObject(hMDC, hBMPOld)
r = DeleteDC(hSDC)
r = DeleteDC(hMDC)
oBackground = Image.FromHbitmap(New IntPtr(hBMP))
Return CType(oBackground, Image)
End Function
End Class
now, as soon as i call the client-function "_captureScreen" in my server-object:
Public Function _getClientScreenShort() As Image Implements
IServer._getClientScreenShot
Dim user As IClient
Dim capturedScreen As Image
'_clients is the hashtable
For Each user In _clients.Values
Try
capturedScreen = user._captureScreen
Catch e As Exception
Me._schoolMain.Info.Text = "Exception in Screenshot: " & e.ToString
End Try
Next
Return capturedScreen
End Function
now the following happens:
at client-site the status-text "screenshot called" is printed.
but after this, nothing happens. the picturebox of the client application stays empty.
the server-application even hangs up. (is a thread needed here???)
could someone help me out of my mess?
i hope i explained it understandable.
if not, just ask for more code or explaination.
thanks to all who took the time to read my thread.
greetings-
tom
|
|
|
|
|
Using VB.Net, I am able to set the CurrentCell in DataGrid.
I don't know if it is the CF or the control, but it will not hightlight the cell.
Any ideas?
Canada has 6 zones, none of which are erogenous.
|
|
|
|
|
can anybody show me how to use the MScomm ???
"_____ ______"
|
-_ _-
-______-
|
|
|
|
|
I haven't found any tutorials using MSCOMM, but with the VB.NET Resource Kit, downloadable here[^], there comes a free .NET comm library from Sax, complete with docs and samples.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi!
i am creating an XML document which keeps the record
of each client information. my XML document looks like this.
How can i add a new client? i am able to make updates to existing ones.
please give code.
thanks
vineet
<?xml version="1.0" standalone="yes"?>
<config>
<client name="Cadbury">
<mcastg>223.223.223.223</mcastg>
<port>4000</port>
<path>D:\</path>
<repeat>
</repeat>
<spawn>
</spawn>
<ttl>2</ttl>
<profile>Custom</profile>
<custom>
<bw>23</bw>
<dgsize>512</dgsize>
</custom>
</client>
<client name="dabur">
<mcastg>222.23.23.23</mcastg>
<port>3333</port>
<path>d:\</path>
<repeat>5</repeat>
<spawn>5</spawn>
<ttl>4</ttl>
<profile>High</profile>
<custom>
<bw />
<dgsize />
</custom>
</client>
<client name="Vineet Inc">
<mcastg>222.23.43.43</mcastg>
<port>5555</port>
<path>e:\</path>
<repeat>
</repeat>
<spawn>
</spawn>
<ttl>
</ttl>
<profile>Custom</profile>
<custom>
<bw>213</bw>
<dgsize>384</dgsize>
</custom>
</client>
<client name="ICICI">
<mcastg>244.244.224.2</mcastg>
<port>54334</port>
<path>e:\hello</path>
<repeat>10</repeat>
<spawn>45</spawn>
<ttl>4</ttl>
<profile>Low</profile>
<custom>
<bw />
<dgsize />
</custom>
</client>
<client name="Vikram">
<mcastg>223.33.56.234</mcastg>
<port>5433</port>
<path>d:\vineet</path>
<repeat>
</repeat>
<spawn>
</spawn>
<ttl>
</ttl>
<profile>Custom</profile>
<custom>
<bw />
<dgsize />
</custom>
</client>
<client name="SBI">
<mcastg>234.45.56.23</mcastg>
<port>4000</port>
<path>c:\</path>
<repeat>3</repeat>
<spawn>4</spawn>
<ttl>4</ttl>
<profile>Custom</profile>
<custom>
<bw />
<dgsize />
</custom>
</client>
</config>
|
|
|
|
|
Hello,
When I am executing this form load event its giving me overflow error on the line of OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
I have declare the apis in one general module as below.
Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
Declare Function GetWindow Lib "User" (ByVal hWnd As Integer, ByVal wCmd As Integer) As Integer
please help me to fix this problem.
Sub Form_Load()
Const SW_HIDE = 0
Const GW_OWNER = 4
Dim OwnerhWnd As String
Dim ret As Integer
' Make sure the form is invisible:
Form1.Visible = False
' Set interval for timer for 5 seconds, and make sure it is enabled:
Timer1.Interval = 5000
Timer1.Enabled = True
' Grab the background or owner window:
OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
' Hide from task list:
ret = ShowWindow(OwnerhWnd, SW_HIDE)
End Sub
Thanks
Murtuza patel
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
