|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| 06/10/2009 at 05:32AM PDT, ID: 24479076 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: |
sSql = "SELECT * From TMOBIHUBCE;"
cmdSKU = New SqlCeCommand(sSql, oNewConnection)
cmdSKU.CommandText = CommandType.Text
rdrReadSKU = cmdSKU.ExecuteReader(CommandBehavior.Default)
|
| Microsoft |
| Apple |
| Internet |
| Gamers |
| Digital Living |
| Virus & Spyware |
| Hardware |
| Software |
| ITPro |
| Developer |
| Storage |
| OS |
| Database |
| Security |
| Programming |
| Web Development |
| Networking |
| Other |
| Community Support |
| 06/10/09 05:41 AM, ID: 24590677 |
| 06/10/09 05:57 AM, ID: 24590825 |
| 06/10/09 06:05 AM, ID: 24590904 |
| 06/10/09 06:08 AM, ID: 24590945 |
| 06/10/09 06:11 AM, ID: 24590973 |
| 06/10/09 06:11 AM, ID: 24590974 |
| 06/10/09 08:37 AM, ID: 24592881 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: |
Private Sub BCRReceive_BarcodeRead(ByVal sender As System.Object, ByVal bre As Intermec.DataCollection.BarcodeReadEventArgs) Handles BCRReceive.BarcodeRead
Dim rdrReadSKU As SqlCeDataReader = Nothing
Dim sDeviceName As String = System.Net.Dns.GetHostName()
Dim oNewConnection As SqlCeConnection = Nothing
Dim ceEng As SqlCeEngine = Nothing
Dim iQty As Integer = 0
Dim sBatchCode As String = String.Empty
'Code For Reading Barcode and Fetch the SKU Details
Dim sConnectionString As String = "Data Source= " + GetAppPath() + "\MOBIHUB.sdf;"
Try
txtSKU.Text = bre.strDataBuffer.ToString
Dim sSql As String = String.Empty
Dim sActCode As String = String.Empty
Dim cmdSKU As SqlCeCommand
sConnectionString = "Data Source= " + GetAppPath() + "\MOBIHUB.sdf;"
oNewConnection = New SqlCeConnection(sConnectionString)
oNewConnection.Open()
sSql = "SELECT * From TMOBIHUBCE"
cmdSKU = New SqlCeCommand(sSql, oNewConnection)
cmdSKU.CommandText = CommandType.Text
rdrReadSKU = cmdSKU.ExecuteReader()
While rdrReadSKU.Read
rdrReadSKU.Read()
sBatchCode = rdrReadSKU.GetValue(2)
iQty = rdrReadSKU.GetValue(3)
txtBatchCode.Text = sBatchCode
txtPUOMQty.Text = iQty
End While
If rdrReadSKU.IsClosed = False Then
rdrReadSKU.Close()
rdrReadSKU.Dispose()
End If
Catch ex As Exception
MsgBox(ex.ToString)
' ManageMobileHub.cManageLogs.ManageLogs(System.Guid.NewGuid.ToString, ex.ToString)
Finally
oNewConnection.Close()
End Try
End Sub
Public Shared Function GetAppPath() As String
Dim fullPath As String = Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase)
GetAppPath = fullPath
End Function
|
| 06/10/09 07:55 PM, ID: 24598443 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: |
Private Sub BCRReceive_BarcodeRead(ByVal sender As System.Object, ByVal bre As Intermec.DataCollection.BarcodeReadEventArgs) Handles BCRReceive.BarcodeRead
Dim rdrReadSKU As SqlCeDataReader = Nothing
Dim sDeviceName As String = System.Net.Dns.GetHostName()
Dim oNewConnection As SqlCeConnection = Nothing
Dim ceEng As SqlCeEngine = Nothing
Dim iQty As Integer = 0
Dim sBatchCode As String = String.Empty
'Code For Reading Barcode and Fetch the SKU Details
Dim sConnectionString As String = "Data Source= " + GetAppPath() + "\MOBIHUB.sdf;"
Try
txtSKU.Text = bre.strDataBuffer.ToString
Dim sSql As String = String.Empty
Dim sActCode As String = String.Empty
Dim cmdSKU As SqlCeCommand
sConnectionString = "Data Source= " + GetAppPath() + "\MOBIHUB.sdf;"
oNewConnection = New SqlCeConnection(sConnectionString)
oNewConnection.Open()
sSql = "SELECT * From TMOBIHUBCE"
cmdSKU = New SqlCeCommand(sSql, oNewConnection)
cmdSKU.CommandText = CommandType.Text
rdrReadSKU = cmdSKU.ExecuteReader()
While rdrReadSKU.Read
rdrReadSKU.Read()
sBatchCode = rdrReadSKU.GetValue(2)
iQty = rdrReadSKU.GetValue(3)
txtBatchCode.Text = sBatchCode
txtPUOMQty.Text = iQty
End While
If rdrReadSKU.IsClosed = False Then
rdrReadSKU.Close()
rdrReadSKU.Dispose()
End If
Catch ex As Exception
MsgBox(ex.ToString)
' ManageMobileHub.cManageLogs.ManageLogs(System.Guid.NewGuid.ToString, ex.ToString)
Finally
oNewConnection.Close()
End Try
End Sub
Public Shared Function GetAppPath() As String
Dim fullPath As String = Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase)
GetAppPath = fullPath
End Function
|
| 06/11/09 05:14 PM, ID: 24608152 |
Advertisement
