Try the following:
1) Click on the XSD file in the solution explorer
2) Click on the properties tab and check the Custom Tool Property. In there you should find MSDataSetGenerator. If it’s not there, type it there
3) Once done right click the XSD file and click the menu item Run Custom Tool.
delete all the ds*.designer.vb, don’t worry because it can be regenerated.
Close your project. Edit the project.vbproj file in XML mode. You will find an entry in the group that reads:
<None Include="*myDataSet*.xsd"> <SubType>Designer</SubType> <Generator>MSDataSetGenerator</Generator> <LastGenOutput>*myDataSet*1.Designer.cs</LastGenOutput> </None>
Change the item to remove the “1”. Save and close the file. Reopen your project.
When you regenerate your dataset, it should be back to normal.
Tutorial Level : Intermediate -> Advanced
Berikut langkah-langkah untuk mencetak laporan dengan ukuran kertas yang kita tentukan.
Spesifikasi Computer Admin:
Langkah 1 – Set terlebih dahulu ukuran kertas.
Klik Start > Devices and Printers > Print Server Properties
Create form baru dengan nama “TTH” kemudian save form.
Langkah 2 – Coding pencetakan laporan
Buat sebuah public function untuk menentukan ukuran kertas
Public Function GetPapersizeID(ByVal PrinterName As String, ByVal PaperSizeName As String) As Integer
Dim doctoprint As New System.Drawing.Printing.PrintDocument()
Dim PaperSizeID As Integer = 0
Dim ppname As String = ""
Dim s As String = ""
doctoprint.PrinterSettings.PrinterName = PrinterName '(ex."EpsonSQ-1170ESC/P2")
For i As Integer = 0 To doctoprint.PrinterSettings.PaperSizes.Count - 1
Dim rawKind As Integer
ppname = PaperSizeName
If doctoprint.PrinterSettings.PaperSizes(i).PaperName = ppname Then
rawKind = CInt(doctoprint.PrinterSettings.PaperSizes(i).GetType().GetField("kind",
Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic).GetValue(doctoprint.PrinterSettings.PaperSizes(i)))
PaperSizeID = rawKind
Exit For
End If
Next
Return PaperSizeID
End Function
Sisipkan coding berikut ke dalam tombol cetak.
Dim repOptions As CrystalDecisions.CrystalReports.Engine.PrintOptions
With rptDocument
repOptions = .PrintOptions
With repOptions
.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Portrait
.PaperSize = GetPapersizeID("EPSON L355 Series", "TTH")
.PrinterName = "EPSON L355 Series"
End With
' Set the Report Option first before loading the report or else settings won't take effect
.Load(path, CrystalDecisions.Shared.OpenReportMethod.OpenReportByDefault)
.SetDataSource(_dtReport)
.Refresh()
.PrintToPrinter(1, True, 0, 0)
End With
Semoga Membantu. Tq
Today, I suddenly run into a problem on my VB6 (32bit) project, suddenly when i look into the log file i found an error MScomctllib could not loaded to path.
After several minutes googling and hasn’t found the solution, i tried to register back the ocx. and fortunately it works!
so the step is:
Hope it can help other that has same problem.
Good Luck
When we want to create link to table oracle using access 2007 x86 on Win 7 x64. We must setting several properties:
1. Setting Data Source (ODBC) to Target in sysWOW64:
Then another problem is that MS Access 2007 on Windows 7 (64-bit version) is by default installed in the following folder: C:\Program Files (x86)\Microsoft Office\Office12, and the Microsoft ODBC for Oracle driver doesn’t work properly with the parentheses in the path. The solution is create a symlink to the folder Access is installed in, and then launching Access from that location.
2. Set up a symlink to the c:\Program Files (x86) folder without the parentheses:
3. For convenience, create a desktop shortcut to the new no-parentheses path to Access
4. Finally, create a MS Access database with a link to an Oracle table
That’s finish the tutorial, Good Luck
When using VB.NET 2010 to connect to SQL SERVER 2000 Database that secure with password using OLE DB we can use this following connection string:
Provider=SQLOLEDB;Data Source=<server instance name>;Password=<password>;User ID=<user>;Initial Catalog=<databaseName>
example:
Public conSql As New OleDbConnection
Public conStrSqlServer As String = “Provider=SQLOLEDB;Data Source=<server instance name>;Password=<password>;User ID=<user>;Initial Catalog=<databaseName>”
conSql.ConnectionString = conStrSqlServer
conSql.Open()
conSql.Close()
The main point if you use win 7 64 bit is don’t forget to set your debug platform to x86 or you will find an error.
Tq
Untuk mengcreate project baru dengan yii ketikkan perintah berikut di command prompt dengan
asumsi hasil extract file xampp terletak di drive E:\
Ketikkan perintah berikut di CMD :
- E:
- cd xampp\htdocs -->Supaya project kita tercipta di folder htdocs
- <drive xampp>:\xampp\php\php \framework\yiic webapp helloworld
cth: e:\xampp\php\php yii1113\framework\yiic webapp helloworld
|
Download file : Taiwan Lunar Calendar 2013 (taiwan basic.ics)
|
Pernahkan anda ketika chat namun tulisan di chat box tidak terlihat alias blank.
berikut langkah-langkah untuk mengatasi hal tersebut.
Reagan Jiang
Evocruzader Blog 