Selamat Datang di SFX Community
Peraturan SFX Community :
1. Dilarang berkomentar dengan menghina SARA(Suku,Agama,Ras, Antar Golongan)
2. Silahkan download link yang tertera di postingan website ini
3. Bantu dengan donasi klik anda dengan cara mengklik iklan disamping kiri atau dibawah judul postingan
4. Software yang kami berikan tidak bertanggung jawab atas pemakaian diluar batas
5. Serial Number, Aktifasi Kunci software yang sudah kadarluwarsa harap diberi tahu agar dapat diupdate
6. Kami sedang membangun website tutorial, belanja, pemesanan DVD
7. Tolong anda sebagai pengujung website kami dengan klik iklan kami

Terima Kasih sudah membaca peraturan SFX Community


Showing posts with label VB6. Show all posts
Showing posts with label VB6. Show all posts

Wednesday, May 20, 2015

Formating dates and times in VB6

Cheat FREE

Formating dates and times in VB6

In addition to the named date/time formats described previously, you can also create custom date/time formats using a combination of specific characters recognized by the Format$ function, shown in the table below:
 
Format Character(s)

Description
:
Time separator. In some locales, other characters may be used to represent the time separator. The time separator separates hours, minutes, and seconds when time values are formatted. The actual character used as the time separator in formatted output is determined by your system settings.
/
Date separator. In some locales, other characters may be used to represent the date separator. The date separator separates the day, month, and year when date values are formatted. The actual character used as the date separator in formatted output is determined by your system settings.
C
Display the date as ddddd and display the time as t t t t t, in that order. Display only date information if there is no fractional part to the date serial number; display only time information if there is no integer portion.
d
Display the day as a number without a leading zero (1 - 31).
dd
Display the day as a number with a leading zero (01 - 31).
ddd
Display the day as an abbreviation (Sun - Sat).
dddd
Display the day as a full name (Sunday - Saturday).
ddddd
Display the date as a complete date (including day, month, and year), formatted according to your system's short date format setting. The default short date format is m/d/yy.
dddddd
Display a date serial number as a complete date (including day, month, and year) formatted according to the long date setting recognized by your system. The default long date format is mmmm dd, yyyy.
w
Display the day of the week as a number (1 for Sunday through 7 for Saturday).
ww
Display the week of the year as a number (1 - 53).
m
Display the month as a number without a leading zero (1 - 12). If m immediately follows h or hh, the minute rather than the month is displayed.
mm
Display the month as a number with a leading zero (01 - 12). If m immediately follows h or hh, the minute rather than the month is displayed.
mmm
Display the month as an abbreviation (Jan - Dec).
mmmm
Display the month as a full month name (January - December).
q
Display the quarter of the year as a number (1 - 4).
y
Display the day of the year as a number (1 - 366).
yy
Display the year as a 2-digit number (00 - 99).
yyyy
Display the year as a 4-digit number (100 - 9999).
h
Display the hour as a number without leading zeros (0 - 23).
hh
Display the hour as a number with leading zeros (00 - 23).
n
Display the minute as a number without leading zeros (0 - 59).
nn
Display the minute as a number with leading zeros (00 - 59).
s
Display the second as a number without leading zeros (0 - 59).
ss
Display the second as a number with leading zeros (00 - 59).
t t t t t
Display a time as a complete time (including hour, minute, and second), formatted using the time separator defined by the time format recognized by your system. A leading zero is displayed if the leading zero option is selected and the time is before 10:00 A.M. or P.M. The default time format is h:mm:ss.
AM/PM
Use the 12-hour clock and display an uppercase AM with any hour before noon; display an uppercase PM with any hour between noon and 11:59 P.M.
am/pm
Use the 12-hour clock and display a lowercase AM with any hour before noon; display a lowercase PM with any hour between noon and 11:59 P.M.
A/P
Use the 12-hour clock and display an uppercase A with any hour before noon; display an uppercase P with any hour between noon and 11:59 P.M.
a/p
Use the 12-hour clock and display a lowercase A with any hour before noon; display a lowercase P with any hour between noon and 11:59 P.M.
AMPM
Use the 12-hour clock and display the AM string literal as defined by your system with any hour before noon; display the PM string literal as defined by your system with any hour between noon and 11:59 P.M. AMPM can be either uppercase or lowercase, but the case of the string displayed matches the string as defined by your system settings. The default format is AM/PM.


To demonstrate custom numeric formats using combinations of the characters listed above, set up another "Try It" project, and place the following code in the cmdTryIt_Click event:

Private Sub cmdTryIt_Click()

Print "Using 'm/d/yy':"; Tab(30); Format$(Now, "m/d/yy")
Print "Using 'mm/dd/yyyy':"; Tab(30); Format$(Now, "mm/dd/yyyy")
Print "Using 'yyyy-mm-dd':"; Tab(30); Format$(Now, "yyyy-mm-dd")
Print "Using 'dddd, mmmm dd, yyyy':"; Tab(30); Format$(Now, "dddd, mmmm dd, yyyy")
Print "Using 'd-mmm':"; Tab(30); Format$(Now, "d-mmm")
Print "Using 'mmmm-yy':"; Tab(30); Format$(Now, "mmmm-yy")
Print "Using 'hh:mm AM/PM':"; Tab(30); Format$(Now, "hh:mm AM/PM")
Print "Using 'h:mm:ss a/p':"; Tab(30); Format$(Now, "h:mm:ss a/p")
Print "Using 'd-mmmm h:mm':"; Tab(30); Format$(Now, "d-mmmm h:mm")
Print "Using 'd-mmmm-yy':"; Tab(30); Format$(Now, "d-mmmm-yy")
Print "Using 'd mmmm':"; Tab(30); Format$(Now, "d mmmm")
Print "Using 'mmmm yy':"; Tab(30); Format$(Now, "mmmm yy")
Print "Using 'hh:mm AM/PM':"; Tab(30); Format$(Now, "hh:mm AM/PM")
Print "Using 'h:mm:ss a/p':"; Tab(30); Format$(Now, "h:mm:ss a/p")
Print "Using 'h:mm':"; Tab(30); Format$(Now, "h:mm")
Print "Using 'h:mm:ss':"; Tab(30); Format$(Now, "h:mm:ss")
Print "Using 'm/d/yy h:mm':"; Tab(30); Format$(Now, "m/d/yy h:mm")
End Sub

Run the project and click the "Try It" button. The current date and/or time, formatted in the various ways, will be displayed on your form:



Download the VB project code for the example above here.

Saturday, May 9, 2015

Quarantine Antivirus Sederhada Listbox VB6(Visual Basic 6.0)

Cheat FREE

Quarantine Antivirus Sederhada Listbox VB6(Visual Basic 6.0)

Fitur Quarantine sederhana :
1. Encyprt file dan dipindahkan ke folder quarantine
2. File yang di encrypt merubah nama file berupa angka
3. File yang telah di encrypt dapat di ambil kembalik dengan tombol restore
4. Penyimpanan nama file + alamat file di letakkan pada registry



Kelemahan :
1. List quarantine menggunakan listbox bukan listview
2. Nama file pada folder karantina dirubah maka tidak dapat direstore karena perbedaan nama file pada folder karantina dengan nama file pada registry
3. Tidak adanya fitur quarantine all
4. Tidak dapat menghapus file hanya mengkarantina file

Download Quarantine Antivirus Sederhada Listbox VB6(Visual Basic 6.0)


Screen shoot :


Regard's :
SFXCommunitu
SEAntivirus(Indonesian Production)

website :
operaterpm.blogspot.com

Friday, January 30, 2015

Wednesday, December 31, 2014

Cara Membuat Aplikasi dari VB Otomatis Run as Administrator

Cheat FREE
Untuk membuat aplikasi yang kita buat dari visual basic otomatis run as administrator adalah dengan menambahkan file manifest ke dalam folder aplikasi kita .

Caranya buat sebuah form dan tambahkan kontrol textbox kedalamnya dengan multiline = true dan scrollbar = both .
Kemudian tambahkan scrips berikut kedalam textbox tadi :



<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity version="1.0.0.0"
     processorArchitecture="X86"
     name="FolderLockEssential"
     type="win32"/>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="x86" publicKeyToken="6595b64144ccf1df" language="*" />
</dependentAssembly>
</dependency>
  <description>Protect your data</description>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="highestAvailable" uiAccess="false"/>
        </requestedPrivileges>
       </security>
  </trustInfo>
</assembly>
Lalu di form load ketikkan ini :

If Dir(App.Path & "\" & App.EXEName & ".exe.manifest") = "" Then
Open App.Path & "\" & App.EXEName & ".exe.manifest" For Output As #1
Print #1, Text1.Text
Close #1
End If

Di Declaration :
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
dan di Form_Initialize() ketikkan ini
    InitCommonControls

 dan jangan lupa buat aplikasi exenya, pertama membuka memang tidak bisa di run as administrator karna file manifestnya akan otomatis ketika program dibuka dan jika file manifestnya hilang atau dihapus orang lain, maka aplikasi kita bisa membuat file manifestnya dengan otomatis, jadi tak perlu repot2 lagi .

Nah, untuk supaya aplikasi kita pertama kali dibuka langsung otomatis run as administrator kita tambahkan sendiri saja file manifestnya dan menyimpannya dengan "nama_aplikasi.exe.manifest" tanpa kutip dan nama_aplikasi itu bisa diganti dengan nama aplikasi exe anda .
Dan jangan lupa menyimpankannya dalam satu folder dengan aplikasi anda .

Kelebihan dari kode saya ini dengan yang lain adalah aplikasi anda sudah langsung bisa menggunakan xp style, jadi tampilan aplikasi anda lebih keren dan menarik .

Cara mengunggah berkas ke Web server dengan menggunakan ASP

Cheat FREE

Persyaratan

  1. Microsoft Windows 2000 dengan Microsoft Internet Information Server 5.0 (IIS) terinstal dan dikonfigurasi
  2. Jika komputer pengembangan komputer yang berbeda dari server, Anda harus berlaku jaringan atau koneksi Internet ke server yang host halaman ASP.

Setup proyek Microsoft Visual Basic 6 dan kode

  1. Mulai Visual Basic, dan kemudian memulai sebuah proyek ActiveX DLL yang baru.
  2. Nama proyek ASPFileUpload.
  3. Mengubah nama kelas 1 ke File.
  4. Pada Project menu, klik referensi.
  5. Di referensi kotak dialog, klik untuk memilih opsi berikut, dan kemudian klik OK:
    • Visual Basic untuk aplikasi
    • Benda-benda runtime Visual Basic dan prosedur
    • Objek Visual Basic dan prosedur
    • OLE Automation
    • COM + pustaka tipe layanan
    • pustaka objek Microsoft Active Server Pages
    • Microsoft Scripting Runtime
  6. Pada Proyek Menu, klik ASPFileUpload properti.
  7. Dalam Properti proyek kotak dialog, klik untuk memilih Eksekusi tanpa pengawasan dan Disimpan dalam kehabisan memori, lalu klik Oke.
  8. Paste kode berikut untuk File.cls:

    Option Explicit
    
    Const ERR_INVALID_FILENAME = vbObjectError + 1000
    Const ERR_INVALID_TARGET = vbObjectError + 1001
    Const ERR_FILE_EXISTS = vbObjectError + 1002
    Const ERR_UPLOAD_CALLED = vbObjectError + 1003
    Const VB_ERR_PATH_NOT_FOUND = 76
    
    Private m_objContext As ObjectContext
    Private m_objRequest As ASPTypeLibrary.Request
    
    Private m_strTarget As String
    Private m_strFileName As String
    Private m_blnOverWrite As Boolean
    Private m_blnUploaded As Boolean
    Private m_lngTotalBytes As Long
    
    'All other form elements go here.
    Private m_formCol As Scripting.Dictionary
    
    Implements ObjectControl
    
    Private Function ObjectControl_CanBePooled() As Boolean
      ObjectControl_CanBePooled = False
    End Function
    
    Private Sub ObjectControl_Activate()
      Set m_objContext = GetObjectContext()
      Set m_objRequest = m_objContext("Request")
      Set m_formCol = New Scripting.Dictionary
    End Sub
    
    Private Sub ObjectControl_Deactivate()
      Set m_objContext = Nothing
      Set m_objRequest = Nothing
      Set m_formCol = Nothing
    End Sub
    
    Public Sub Upload()
      
      Const DEFAULT_CHUNK_SIZE = 262144 '256kb
      
      Dim bytBeginOfChunk() As Byte
      Dim bytEndOfChunk() As Byte
      Dim bytBeginOfName() As Byte
      Dim bytEndOfName() As Byte
      Dim bytBeginOfFile() As Byte
      Dim bytEndOfFile() As Byte
      Dim bytBeginOfValue() As Byte
      Dim bytEndOfValue() As Byte
      Dim bytName() As Byte
      Dim bytValue() As Byte
      Dim bytThisChunk() As Byte
      Dim bytFileName() As Byte
      Dim lngBeginOfChunk As Long
      Dim lngEndOfChunk As Long
      
      Dim lngBeginOfAttribute As Long
      Dim lngEndOfAttribute As Long
      Dim lngBeginOfValue As Long
      Dim lngEndOfValue As Long
      Dim blnEndOfData As Boolean
      Dim lngChunkSize As Long
      Dim lngBytesLeft As Long
      Dim lngFileNum As Long
      Dim strFileName As String
      
      On Error GoTo UploadErr
      
      If Uploaded Then
        Err.Raise ERR_UPLOAD_CALLED, App.Title, "The Upload method has already been called."
      End If
         
      bytBeginOfChunk = StrConv("-----------------------------", vbFromUnicode)
      bytEndOfChunk = StrConv("-----------------------------", vbFromUnicode)
      
      bytBeginOfName = StrConv("name=", vbFromUnicode) & ChrB(34)
      bytEndOfName = ChrB(34)
      
      bytBeginOfFile = StrConv("filename=", vbFromUnicode) & ChrB(34)
      bytEndOfFile = ChrB(34)
      
      bytBeginOfValue = ChrB(13) & ChrB(10) & ChrB(13) & ChrB(10)
      bytEndOfValue = ChrB(13) & ChrB(10) & StrConv("-----------------------------", vbFromUnicode)
         
      'Initialize the chunk size.
      If m_objRequest.TotalBytes <= DEFAULT_CHUNK_SIZE Then
        lngChunkSize = m_objRequest.TotalBytes
      Else
        lngChunkSize = DEFAULT_CHUNK_SIZE
      End If
        
      'Get the chunk from the request object.
      bytThisChunk = m_objRequest.BinaryRead(CVar(lngChunkSize))
    
      'Initialize the value.
      lngBeginOfChunk = 1
      
      'Repeat until the end of the data.
      Do While Not blnEndOfData
        'Begin the chunk.
        lngBeginOfChunk = InStrB(lngBeginOfChunk, bytThisChunk, bytBeginOfChunk) + UBound(bytBeginOfChunk)
        
        'Get name of the item.
        lngBeginOfAttribute = InStrB(lngBeginOfChunk, bytThisChunk, bytBeginOfName) + UBound(bytBeginOfName) + 1
        lngEndOfAttribute = InStrB(lngBeginOfAttribute, bytThisChunk, bytEndOfName)
        bytName = MidB(bytThisChunk, lngBeginOfAttribute, lngEndOfAttribute - lngBeginOfAttribute)
        
        'Get the value of the item.
        lngBeginOfValue = InStrB(lngEndOfAttribute, bytThisChunk, bytBeginOfValue, vbBinaryCompare) + UBound(bytBeginOfValue) + 1
        lngEndOfValue = InStrB(lngBeginOfValue, bytThisChunk, bytEndOfValue, vbBinaryCompare)
        
        If lngEndOfValue = 0 Then
          'The item extends the past current chunk.
          bytValue = MidB(bytThisChunk, lngBeginOfValue, lngChunkSize)
        Else
          'The item value exists in the current chunk.
          bytValue = MidB(bytThisChunk, lngBeginOfValue, lngEndOfValue - lngBeginOfValue)
        End If
        
        If UCase(StrConv(bytName, vbUnicode)) = "FILE" Then
          lngBeginOfAttribute = InStrB(lngBeginOfChunk, bytThisChunk, bytBeginOfFile, vbBinaryCompare) + UBound(bytBeginOfFile) + 1
          lngEndOfAttribute = InStrB(lngBeginOfAttribute, bytThisChunk, bytEndOfFile, vbBinaryCompare)
          
          bytFileName = MidB(bytThisChunk, lngBeginOfAttribute, lngEndOfAttribute - lngBeginOfAttribute)
          
          If UBound(bytFileName) < 0 Or UBound(bytValue) < 0 Then
            Err.Raise ERR_INVALID_FILENAME, App.Title, "Invalid File Name."
          End If
          
          If Me.Target = "" Then
            Err.Raise ERR_INVALID_TARGET, App.Title, "Invalid Target."
          End If
          
          'Use the original file name.
          If Me.FileName = "" Then
          
            'Trim the path from the file name.
            While InStrB(1, bytFileName, StrConv("\", vbFromUnicode), vbBinaryCompare) > 0
              bytFileName = MidB(bytFileName, InStrB(1, bytFileName, StrConv("\", vbFromUnicode)) + 1)
            Wend
            
            'Set the property.
            Me.FileName = StrConv(bytFileName, vbUnicode)
            
            'Convert the byte to Unicode.
            strFileName = Me.Target & Me.FileName
           
          Else
            strFileName = Me.Target & Me.FileName
          End If
          
          'Check for overwrite.
          If Me.OverWrite Then
            'This is the hack check. Make sure that wildcard characters cannot be used.
            If Not InStr(1, strFileName, "*") Then
              If FileExists(strFileName) Then
                Kill strFileName
              End If
            Else
              Err.Raise ERR_INVALID_FILENAME, App.Title, "The specified file name appears to be invalid."
            End If
          Else
            If FileExists(strFileName) Then
              Err.Raise ERR_FILE_EXISTS, App.Title, "The file already exists."
            End If
          End If
          
          lngFileNum = FreeFile
          
          Open strFileName For Binary Access Write As #lngFileNum
          
          'Write the file to the destination directory.
          Put #lngFileNum, , bytValue
    
          'This chunk is empty. Therefore, get a new chunk.
          lngBytesLeft = m_objRequest.TotalBytes - lngChunkSize
            
          'Start the chunking machine.
          Do While lngBytesLeft > 0
          
            'Get a new chunk.
            bytThisChunk = m_objRequest.BinaryRead(CVar(lngChunkSize))
                      
              lngEndOfValue = InStrB(1, bytThisChunk, bytEndOfValue, vbBinaryCompare)
              
              If lngEndOfValue > 0 Then
                'The item value exists in the current chunk.
                bytThisChunk = MidB(bytThisChunk, 1, lngEndOfValue - 1)
              End If
              
              'Append the chunk to the file.
              Put #lngFileNum, , bytThisChunk
              
              lngBytesLeft = lngBytesLeft - lngChunkSize
              
              If lngBytesLeft < lngChunkSize Then
                lngChunkSize = lngBytesLeft
              End If
            Loop
            
            Close #lngFileNum
            
            TotalBytes = FileLen(strFileName)
            
         ' Exit Do
         Else
          If UCase(StrConv(bytName, vbUnicode)) = "SAVEAS" Then
           Me.FileName = StrConv(bytValue, vbUnicode)
          Else 
           'form field other than file, such as textboxes 
           If UBound(bytValue) > 0 And UBound(bytName) > 0 Then 
            m_formCol.Add StrConv(bytName, vbUnicode), StrConv(bytValue, vbUnicode)
           Else
            m_formCol.Add StrConv(bytName, vbUnicode), ""
           End If
          End If
         End If
        
        'Get the next chunk.
        lngBeginOfChunk = lngEndOfValue
        
        If InStrB(lngBeginOfChunk, bytThisChunk, bytBeginOfName, vbBinaryCompare) = 0 Then
          blnEndOfData = True
        End If
      Loop
    
      Uploaded = True
      
      Exit Sub
      
    UploadErr:
      
      If Err.Number = VB_ERR_PATH_NOT_FOUND Then
        Err.Raise ERR_INVALID_TARGET, App.Title, "The Target specified does not exist."
      Else
        Err.Raise Err.Number, Err.Source, Err.Description
      End If
    End Sub
    
    Public Property Get Form() As Collection
        Set Form = m_formCol
    End Property
    Public Property Get FileName() As String
      FileName = m_strFileName
    End Property
    
    Public Property Let FileName(ByVal strNewValue As String)
      If Uploaded Then
        Err.Raise ERR_UPLOAD_CALLED, App.Title, "The Upload method has already been called."
      Else
        m_strFileName = strNewValue
      End If
    End Property
    
    Public Property Get OverWrite() As Boolean
      OverWrite = m_blnOverWrite
    End Property
    
    Public Property Let OverWrite(ByVal blnNewValue As Boolean)
      If Uploaded Then
        Err.Raise ERR_UPLOAD_CALLED, App.Title, "The Upload method has already been called."
      Else
        m_blnOverWrite = blnNewValue
      End If
    End Property
    
    Private Property Get Uploaded() As Boolean
      Uploaded = m_blnUploaded
    End Property
    
    Private Property Let Uploaded(ByVal blnNewValue As Boolean)
      m_blnUploaded = blnNewValue
    End Property
    
    Public Property Get Target() As String
      Target = m_strTarget
    End Property
    
    Public Property Let Target(ByVal NewValue As String)
      If Uploaded Then
        Err.Raise ERR_UPLOAD_CALLED, App.Title, "The Upload method has already been called."
      Else
        m_strTarget = NewValue
      End If
    End Property
    
    Private Function FileExists(ByVal FileName As String) As Boolean
      On Error GoTo FileExistsErr
      
      FileLen FileName
      FileExists = True
      Exit Function
      
    FileExistsErr:
      If Err.Number = VB_ERR_PATH_NOT_FOUND Then
        FileExists = False
      End If
    End Function
    
    Public Property Get TotalBytes() As Long
      TotalBytes = m_lngTotalBytes
    End Property
    
    Private Property Let TotalBytes(ByVal NewValue As Long)
      m_lngTotalBytes = NewValue
    End Property
    
  9. Mengkompilasi proyek

ASP kode

  1. Paste kode berikut ke editor seperti Notepad atau Microsoft Visual Interdev, dan kemudian menyimpannya sebagaiPostFile.asp:

    <%@ Language=VBScript %>
    <html>
    <head>
    </head>
    <body>
    <form enctype="multipart/form-data" action="uploadfile.asp" method="post" name="main1">
    <input name="file" type="file" size="50">
    <INPUT type="text" id=text1 name=text1><INPUT type="text" id=text2 name=text2>
    <input name="submit" type="submit" value="Upload">
    </form>
    </body>
    </html>
    
  2. Salin kode berikut ke editor seperti Notepad atau Visual Interdev, dan kemudian menyimpannya sebagai UploadFile.asp:

    <%@ Language=VBScript %>
    <%
      '//////////////////////////////////////////////////////////////////////////////////
      '//  ASPFileUpload.File API
      '//  
      '//  Properties
      '//     FileName
      '//       - Read/Write 
      '//       - The file will be saved with this file name. 
      '//       - This property can only be set before calling Upload.
      '//       - If no value is specified, the original file name
      '//       - in the HTTP post will be used.
      '//     
      '//     OverWrite
      '//       - Read/Write
      '//       - This property can only be set before calling Upload.
      '//       - If set to false and if the destination file exists, an error
      '//       - is raised. The default value is False.
      '//     
      '//     Target 
      '//       - Read/Write
      '//       - The file will be written to this folder.
      '//       - This property can only be set before calling Upload.
      '//       - There is no default value for this property and it is required.
      '//       
      '//      Form
      '//        - ReadOnly
      '//        - Scripting.Dictionary object
      '//        - Can access a specific item by using aspfileupload.Form("item").
      '//        - Acts like the asp form collection.
      '//        - Can enumerate all values in a collection with for each.
      '//        - Only filled after the Upload method is called.
      '//         
      '//  Methods
      '//     Upload
      '//       - This method parses the HTTP Post and writes the file.
      '//  
      '//  Other
      '//    - ASPFileUpload requires COM+
      '//    - Any call to the Request.Form() collection will cause the Upload
      '//      method to fail as the method references the Binary contents of the
      '//      Request object through the Request.BinaryRead method. 
      '//    - Also, if you access a variable in the Request collection without 
      '//      specifying the subcollection that it belongs to, the Request.Form collection 
      '//      may be searched. This causes an error in the Upload method.
      '//      
      '//////////////////////////////////////////////////////////////////////////////////
      
      Dim strMsg 'As String
      
     ' On Error Resume Next
      dim fuFile
      set fuFile = server.CreateObject("aspFileupload.file")  
      'Set the destination folder.
      fuFile.Target = "C:\TEMP\AspFileUpload\"
      fuFile.Upload
      
      If Err.number = 0 Then
        strMsg = fuFile.FileName  & " was uploaded successfully."
      Else
        strMsg = "An error occurred when uploading your file: " & Err.Description 
      End If
      for each o in fuFile.Form
     Response.Write o  & "<BR>"
     
     next
     
     Response.Write fuFile.Form.item("text1") & "  :  " & fuFile.Form.item("text2")
    '  Response.Write Request.Form("test")
     set fufile = nothing
    %>
    <html>
    <head></head>
    <body>
    <%=strMsg%>
    </body>
    </html>

Set Up Server

  1. Membuat folder pada server Web yang akan menerima upload file, sepertiC:\TEMP\AspFileUpload.
  2. Salin ASPFileUpload.dll file ke server Web, dan kemudian mendaftar dengan menggunakan perintah berikut pada prompt perintah:
    regsvr32 PathToDLL\ASPFileUpload.dll
  3. Menerapkan file permissions (akses tulis) untuk pengguna yang Anda inginkan untuk dapat meng-upload file.
  4. Klik Mulai, arahkan kePengaturan, lalu klik Kontrol Panel.
  5. Di Control Panel, klik Administrasi Alat, lalu klik Komponen Layanan untuk membuka Komponen Layanan di konsol manajemen Microsoft (MMC).
  6. Memperluas Komponen Layanan node,Komputer node, Komputer saya node, danCOM + aplikasi node.
  7. Klik kanan node, arahkan ke Baru, lalu klikAplikasi.
  8. Dalam Menginstal atau menciptakan sebuah aplikasi baru kotak dialog, klik Membuat aplikasi kosong, nama aplikasi, pastikan bahwa Anda mengklik untuk memilih Server aplikasi, lalu klik Berikutnya.
  9. Dalam Mengatur aplikasi identitas dialog kotak, klik Pengguna ini, kemudian ketik mandat untuk akun pengguna yang sesuai. Akun pengguna harus mempunyai akses menulis ke folder yang akan menerima file upload.
  10. Klik Selesai.
  11. Memperluas node yang baru Anda buat untuk ini aplikasi.
  12. Klik kanan anggukan, arahkan ke Baru, dan kemudian klik Komponen.
  13. Klik Menginstal komponen baru, dan menemukan folder di mana Anda telah disimpan dan terdaftar berkas .dll, klik file, klik Berikutnya, lalu klikSelesai.
  14. Salin Postfile.asp file dan Uploadfile.asp file untuk folder akar Web Anda. Secara default, map akar Web adalah C:\Inetpub\Wwwroot.
  15. Mengedit folder target Uploadfile.asp untuk mencerminkan folder yang Anda buat pada langkah 1. Target folder tugas terletak di baris kode berikut:

    fuFile.Target = "C:\TEMP\AspFileUpload\"
         

Mengunggah berkas

  1. Di Web browser, buka halaman Postfile.asp di URL berikut:
    http://YourWebServer/Postfile.asp
  2. Pilih file yang ingin Anda upload, dan kemudian klikMeng-upload.
  3. Periksa upload folder. File yang Anda upload muncul dalam map ini.

Sunday, February 2, 2014

Membuka dan Menyimpan File Text Visual Basic 6 dan VB.NET

Cheat FREE

Membuka dan Menyimpan File Text

Kegiatan / proses membuka dan menyimpan file teks biasanya digunakan untuk aplikasi sejenis Notepad, tapi selain itu juga dilakukan untuk menyimpan data aplikasi ke dalam file teks (*.txt). Sebelum melanjutkannya, siapkan sebuah Form dan kontrol TextBox (Multiline=True) didalamnya. Lalu siapkan sebuah file *.txt yang berisi, dan ingat-ingat lokasinya (dalam contoh dibawah ini, lokasi file-nya di C:\contoh.txt).
Berikut ini macam-macam metodenya :

Pada VB 6.0
  • Membuka Teks dari File
Dim i As Integer
i = FreeFile
Open "D:\contoh.txt" For Input As #i
Text1.Text = Input(LOF(i), i)
Close #i
  • Membuka Teks dari File (dengan cara dibaca per baris)
Dim i As Integer
i = FreeFile
  
Dim s As String, s1 As String
Open "D:\contoh.txt" For Input As #i
Do Until EOF(i)
Input #i, s 'tiap baris d tampung d variabel "s"
s1 = s1 & s & IIf(EOF(i), "", vbCrLf)
Loop
Close #i
  
Text1.Text = s1
  • Menyimpan Teks ke File
Dim i As Integer
i = FreeFile
Open "D:\contoh.txt" For Output As #i
Print #i, Text1.Text
Close #i
  • Menambahkan Teks ke File
Dim i As Integer
i = FreeFile
Open "D:\contoh.txt" For Append As #i
Print #i, Text1.Text
Close #i




Pada VB.NET
  • Membuka Teks dari File
Dim i As Integer = FreeFile()
FileOpen(i, "D:\contoh.txt", OpenMode.Input)
TextBox1.Text = InputString(i, LOF(i))
FileClose(i)
  • Membuka Teks dari File (dengan cara dibaca per baris)
Dim i As Integer = FreeFile()

Dim s, s1 As String
FileOpen(i, "D:\contoh.txt", OpenMode.Input)
Do Until EOF(i)
Input(i, s) 'tiap baris d tampung d variabel "s"
s1 &= s & IIf(EOF(i), "", vbCrLf)
Loop
FileClose(i)

TextBox1.Text = s1
  • Menyimpan Teks ke File
Dim i As Integer = FreeFile()
FileOpen(i, "D:\contoh.txt", OpenMode.Output)
PrintLine(i, TextBox1.Text)
FileClose(i)
  • Menambahkan Teks ke File
Dim i As Integer = FreeFile()
FileOpen(i, "D:\contoh.txt", OpenMode.Append)
PrintLine(i, TextBox1.Text)
FileClose(i)

Thursday, January 30, 2014

Macam Koneksi Database

Cheat FREE

Macam Koneksi Database

ActiveX Data Objects (ADO)

       Microsoft ActiveX Data Objects (ADO) adalah satu set Component Object Model (COM) objek untuk mengakses sumber data. Sebuah bagian dari MDAC , ia menyediakan middleware lapisan antara bahasa pemrograman dan OLE DB (sarana mengakses menyimpan data, apakah mereka menjadi database atau sebaliknya, secara seragam). ADO memungkinkan pengembang untuk menulis program yang mengakses data tanpa tahu bagaimana database diimplementasikan, pengembang harus menyadari database hanya koneksi. Tidak ada pengetahuan SQL diperlukan untuk mengakses database ketika menggunakan ADO, meskipun satu dapat menggunakan ADO untuk mengeksekusi perintah SQL langsung. Kerugian yang terakhir adalah bahwa ia memperkenalkan ketergantungan pada jenis database yang digunakan.
ADO diposisikan sebagai penerus lapisan objek sebelumnya Microsoft untuk mengakses sumber data, termasuk RDO (Remote Data Objects) dan DAO (Data Access Objects). ADO diperkenalkan oleh Microsoft pada bulan Oktober 1996.
 ADO COLLECTIONS
Fields
Koleksi ini berisi satu set objek Field. Koleksi ini dapat digunakan baik dalam object Recordset atau di obyek Rekaman. Dalam sebuah object Recordset, masing-masing objek Bidang yang membentuk koleksi Fields sesuai dengan kolom dalam Rekam objek set. Dalam obyek Rekaman, Field bisa menjadi URL absolut atau relatif yang menunjuk ke struktur pohon namespace(digunakan untuk data semi-terstruktur penyedia seperti Microsoft OLE DB penyedia untuk Penerbitan internet) atau sebagai referensi ke objek Streaming default yang terkait dengan obyek Rekaman.
Properti
Sebuah objek dapat memiliki lebih dari satu objek Properti, yang terkandung dalam koleksi properti objek.
Parameter
Sebuah objek Command dapat memiliki beberapa perintah Parameter untuk mengubah perilaku yang telah ditetapkan, serta masing-masing objek Parameter yang terkandung dalam koleksi Parameter objek Komando
Kesalahan
Semua kesalahan penyedia diciptakan dilewatkan ke koleksi benda-benda Kesalahan, sedangkan koleksi Kesalahan itu sendiri terkandung dalam sebuah objek Connection. Ketika operasi ADO membuat kesalahan, koleksi dibersihkan dan kelompok baru objek Kesalahan dibuat dalam koleksi.
Koneksi
Obyek koneksi ADO koneksi untuk menyimpan data melalui OLE DB. Sambungan objek menyimpan informasi tentang sesi dan menyediakan metode untuk menghubungkan ke toko data.Seperti beberapa toko data yang memiliki metode yang berbeda membuat sambungan, beberapa metode mungkin tidak didukung dalam objek sambungan untuk tertentu penyedia OLE DB.Sebuah objek koneksi menghubungkan ke toko data menggunakan 'Open' metode dengan connection string yang menentukan sambungan sebagai daftar pasangan nilai kunci (misalnya: "Provider = 'SQLOLEDB'; Sumber Data = 'TheSqlServer'; Initial Catalog = 'Northwind'; Integrated Security = 'SSPI'; "). Awal yang harus mengidentifikasi jenis koneksi menyimpan data bahwa objek koneksi membutuhkan:
  • penyedia DB OLE (misalnya SQLOLEDB), menggunakan sintaks "provider =";
  • nama file, menggunakan sintaks "nama file =";
  • a remote provider and server (see RDS), using the syntax "Remote provider=" and "Remote server="; or
  • an absolute URL, using the syntax "URL="
Perintah
Setelah objek koneksi menetapkan sesi ke sumber data, instruksi yang dikirim ke penyedia data melalui objek perintah. Obyek dapat mengirim perintah SQL query langsung ke provider melalui penggunaan properti CommandText, mengirim permintaan parameterised atau prosedur yang tersimpan melalui penggunaan objek Parameter Parameter atau kumpulan atau menjalankan query dan mengembalikan hasil ke objek dataset melalui Metode Execute. Ada beberapa metode lain yang dapat digunakan dalam object Command yang berkaitan dengan benda-benda lain, seperti objek Stream, Recordset atau Koneksi.
Recordset
Recordset adalah sekelompok catatan, dan dapat berasal dari tabel dasar atau sebagai akibat dari permintaan ke meja. Obyek Recordset berisi koleksi Fields dan koleksi Properties. Koleksi Fields adalah seperangkat benda Field, yang merupakan kolom yang sesuai dalam tabel. Koleksi Properti adalah seperangkat benda Properti, yang mendefinisikan fungsi tertentu penyedia OLE DB. Recordset ini memiliki banyak metode dan properti untuk memeriksa data yang ada di dalamnya. Catatan dapat diperbarui dalam recordset dengan mengubah nilai-nilai dalam catatan dan kemudian memanggil pada Update atau UpdateBatch metode.
Segera
Recordset terkunci menggunakan kunci adLockOptimistic atau adLockPessimistic. Data diperbarui pada sumber data setelah rekor berubah dan Update metode disebut.
Sekumpulan
Recordset terkunci menggunakan adLockBatchOptimistic dan setiap kali Update disebut data diperbarui dalam buffer sementara. Akhirnya, ketika UpdateBatch disebut data benar-benar diperbarui kembali pada sumber data. Ini memiliki keuntungan dari itu semua dilakukan dalam memori, dan jika terjadi masalah maka UpdateCancel disebut dan pembaruan tidak dikirim ke sumber data
Transaksi
Jika penyedia DB OLE memungkinkan, transaksi dapat digunakan. Untuk memulai transaksi, programmer memanggil method BeginTrans dan melakukan update yang diperlukan. Ketika mereka semua dilakukan, programmer memanggil metode CommitTrans. RollbackTrans dapat dipanggil untuk membatalkan perubahan apapun yang dibuat dalam transaksi dan rollback database ke keadaan sebelum transaksi dimulai
Catatan
Objek ini merupakan salah satu catatan dalam database dan berisi koleksi bidang. Recordset terdiri dari koleksi obyek Rekaman.
Aliran
Sebuah aliran, terutama digunakan dalam sebuah objek Recordset, merupakan sarana membaca dan menulis aliran byte. Hal ini sebagian besar digunakan untuk menyimpan recordset dalam format XML, untuk mengirimkan perintah ke penyedia OLE DB sebagai alternatif objek CommandText dan mengandung isi dari file biner atau teks.
Parameter
Parameter adalah cara mengubah perilaku sepotong umum fungsi, misalnya prosedur yang tersimpan mungkin memiliki parameter yang berbeda dikirimkan ke sana tergantung pada apa yang perlu dilakukan, ini disebut perintah parameterised.
Lapangan
Setiap obyek Rekaman berisi banyak bidang, dan objek Recordset memiliki object Field yang sesuai juga. Object Field The Recordset objek sesuai dengan kolom dalam tabel database yang referensi.
Milik
Objek ini adalah khusus untuk penyedia DB OLE dan mendefinisikan kemampuan yang penyedia telah dilaksanakan. Sebuah objek properti dapat berupa properti built-in - itu adalah properti yang terdefinisi dengan baik dilaksanakan oleh ADO sudah dan dengan demikian tidak dapat diubah - atau bisa menjadi properti dinamis - didefinisikan oleh penyedia data yang mendasari dan dapat diubah
Kesalahan
Ketika kesalahan penyedia DB OLE terjadi selama penggunaan ADO, obyek Kesalahan akan dibuat dalam koleksi Kesalahan. Kesalahan lainnya tidak masuk ke obyek kesalahan, namun.Misalnya, setiap kesalahan yang terjadi ketika memanipulasi data dalam Recordset atau Bidang objek disimpan dalam property.SK Status

Dasar penggunaan 

Beberapa langkah dasar yang diperlukan agar dapat mengakses dan memanipulasi data menggunakan ADO:

  1. Membuat objek koneksi untuk menghubungkan ke database.
  2. Membuat objek recordset untuk menerima data masuk
  3. Membuka koneksi
  4. Mengisi recordset dengan membuka dan melewati nama tabel yang diinginkan atau pernyataan SQL sebagai parameter untuk membuka fungsi.
  5. Apakah semua pencarian yang diinginkan / pengolahan pada data yang sudah diambil.
  6. Komit perubahan yang Anda buat ke data (jika ada) dengan menggunakan Update atau UpdateBatch metode.
  7. Tutup recordset
  8. Menutup koneksi

ASP contoh

Berikut adalah ASP misalnya menggunakan ADO untuk memilih field "Name", dari tabel yang disebut "Buku telepon", di mana "PhoneNumber" sama dengan "555-5555".
 dim myconnection, myrecordset, name
 set myconnection = server . createobject ( "ADODB.Connection" )
 set myrecordset = server . createobject ( "ADODB.Recordset" )
 
 myconnection. open mydatasource
 myrecordset. open "Phonebook" , myconnection 
 myrecordset. find "PhoneNumber = '555-5555'"
 name = myrecordset. fields . item ( "Name" )
 myrecordset. close
 
 set myrecordset = nothing
 set myconnection = nothing
Hal ini setara dengan kode ASP berikut, yang menggunakan SQL polos bukan fungsi dari objek Recordset:
 dim myconnection, myrecordset, name
 set myconnection = server . createobject ( "ADODB.connection" )
 myconnection. open mydatasource
 set myrecordset = myconnection. execute ( "SELECT Name FROM Phonebook WHERE PhoneNumber = '555-5555'" )
 name = myrecordset ( 0 )

Perangkat lunak pendukung

ADO didukung dalam ASP, Delphi , PowerBuilder , dan Visual Basic for Applications (VBA).

ADO.NET

 ADO.NET adalah satu set komponen perangkat lunak komputer yang programmer dapat digunakan untuk mengakses data dan layanan data berdasarkan dataset terputus dan XML. Ini adalah bagian dari perpustakaan kelas dasar yang disertakan dengan Microsoft. Framework . Hal ini biasanya digunakan oleh para programmer untuk mengakses dan memodifikasi data yang disimpan dalam sistem database relasional , meskipun juga dapat mengakses data non-relasional sumber. ADO.NET kadang-kadang dianggap sebagai evolusi ActiveX Data Objects teknologi (ADO), tetapi diubah begitu luas bahwa hal itu dapat dianggap sebagai produk yang sama sekali baru.
       ADO.NET secara konseptual dibagi menjadi konsumen dan penyedia data . Para konsumen adalah aplikasi yang membutuhkan akses ke data, dan penyedia komponen perangkat lunak yang mengimplementasikan antarmuka dan dengan demikian memberikan data kepada konsumen.

ADO.NET dan Visual Studio

Fungsi ada di Visual Studio IDE untuk membuat subclass khusus dari kelas DataSet untuk skema database tertentu, yang memungkinkan akses mudah ke bidang masing-masing melalui sangat diketik properti . Ini membantu menangkap kesalahan pemrograman lebih pada saat kompilasi dan membuat IDE Intellisense fitur yang lebih menguntungkan.

ADO.NET dan O / R Mapping

 Klik Penjelasan disini

Entity framework

    ADO.NET Entity Framework adalah seperangkat data-akses API untuk Microsoft . Framework , mirip dengan Java Persistence API , menargetkan versi ADO.NET yang dikirimkan denganKerangka. NET 4.0 . ADO.NET Entity Framework disertakan dengan . NET Framework 4.0 dan Visual Studio 2010 , dirilis pada bulan April 2010. Entity Entity Framework adalah obyek yang memiliki kunci yang mewakili primary key dari entitas datastore logis. A Data Entitas konseptual Model ( model Entity-relationship ) dipetakan ke model skema datastore. Menggunakan Model Data Entity, Entity Framework memungkinkan data yang akan diperlakukan sebagai entitas independen dari representasi datastore yang mendasarinya.
Entity SQL, SQL bahasa seperti, berfungsi untuk query Model Entity Data (bukan datastore yang mendasari). Demikian pula, LINQ ekstensi LINQ untuk Entitas menyediakan diketik query pada Entity Data Model. Entitas SQL dan LINQ untuk query Entitas dikonversi internal menjadi Canonical Pohon Pertanyaan yang kemudian diubah menjadi permintaan dimengerti ke database.
Tinjauan lain :

ODBC

      In computing , ODBC ( Open Database Connectivity ) is a standard C programming language middleware API for accessing database management systems (DBMS). The designers of ODBC aimed to make it independent of database systems and operating systems ; an application written using ODBC can be ported to other platforms, both on the client and server side, with few changes to the data access code.
ODBC accomplishes DBMS independence by using an ODBC driver as a translation layer between the application and the DBMS. The application uses ODBC functions through an ODBC driver manager with which it is linked, and the driver passes the query to the DBMS. An ODBC driver can be thought of as analogous to a printer or other driver, providing a standard set of functions for the application to use, and implementing DBMS-specific functionality. An application that can use ODBC is referred to as "ODBC-compliant". Any ODBC-compliant application can access any DBMS for which a driver is installed. Drivers exist for all major DBMSs, many other data sources like address book systems and Microsoft Excel , and even for text or CSV files.
ODBC was originally developed by Microsoft during the early 1990s, and became the basis for the Call Level Interface (CLI) standardized by SQL Access Group in the Unix and mainframe world.ODBC retained a number of features that were removed as part of the CLI effort. Full ODBC was later ported back to those platforms, and became a de facto standard considerably better known than CLI. The CLI remains similar to ODBC, and applications can be ported from one platform to the other with few changes.

Java Database Connectivity

  JDBC merupakan teknologi akses data berbasis Java (platform Java Standard Edition) dari Oracle Corporation . Teknologi ini merupakan API untukbahasa pemrograman Java yang mendefinisikan bagaimana sebuah klien dapat mengakses basis data . Ini menyediakan metode untuk query dan update data dalam database. JDBC berorientasi pada database relasional . Sebuah JDBC-to- ODBC jembatan memungkinkan sambungan ke sumber data ODBC dapat diakses di JVM lingkungan host.

Contoh

Metode Class.forName(String) digunakan untuk memuat kelas driver JDBC. Garis bawah menyebabkan driver JDBC dari beberapa penjual jdbc yang akan dimuat ke dalam aplikasi.(Beberapa JVMs juga membutuhkan kelas yang akan dipakai dengan .newInstance() .)
 Class forName ("com.somejdbcvendor.TheirJdbcDriver").;
Di JDBC 4.0, perlu secara eksplisit memuat driver JDBC tidak lagi menggunakan Class.forName() . Lihat JDBC 4.0 Perangkat tambahan di Java SE 6 .
Ketika Driver kelas dimuat, itu menciptakan sebuah instance dari dirinya sendiri dan register itu dengan DriverManager . Hal ini dapat dilakukan dengan memasukkan kode yang diperlukan dalam driver kelas yang static blok. Misalnya, DriverManager.registerDriver(Driver driver)
Sekarang ketika koneksi diperlukan, salah satu DriverManager.getConnection() metode yang digunakan untuk membuat koneksi JDBC.
  Connection conn = DriverManager . getConnection (
      "jdbc:somejdbcvendor:other data needed by some jdbc vendor" ,
      "myLogin" ,
      "myPassword" ) ;
 try {
      /* you use the connection here */
 } finally {
     //It's important to close the connection when you are done with it
     try { conn. close ( ) ; } catch ( Throwable ignore ) { /* Propagate the original exception 
  instead of this one that you may want just logged */ }
 }
URL yang digunakan tergantung pada JDBC driver tertentu. Ini akan selalu dimulai dengan "jdbc:" protokol, tapi sisanya terserah kepada vendor tertentu. Setelah sambungan dibuat, pernyataan dapat dibuat.
 . Statement stmt = conn. createStatement ( ) ;
 try {
     stmt. executeUpdate ( "INSERT INTO MyTable( name ) VALUES ( 'my name' ) " ) ;
 } finally {
     //It's important to close the statement when you are done with it
     try { stmt. close ( ) ; } catch ( Throwable ignore ) { /* Propagate the original exception 
  instead of this one that you may want just logged */ }
 }
Perhatikan bahwa Connections,Statements, dan resultsets sering mengikat sistem operasi sumber daya seperti soket atau file deskriptor . Dalam kasus Koneksi ke database server remote, sumber daya lebih lanjut terikat pada server, misalnya, kursor untuk resultsets sedang terbuka. Sangat penting untuk close() setiap objek JDBC secepat itu telah memainkan perannya, Lupa untuk close() hal-hal benar menghasilkan kesalahan palsu dan perilaku. Di atas mencoba-akhirnya membangun adalah direkomendasikan pola kode untuk menggunakan dengan objek JDBC.
Data diambil dari database menggunakan mekanisme query database. Contoh di bawah ini menunjukkan menciptakan pernyataan dan mengeksekusi query.
  Statement stmt = conn. createStatement ( ) ;
 try {
     ResultSet rs = stmt. executeQuery ( "SELECT * FROM MyTable" ) ;
     try {
         while ( rs. next ( ) ) {
             int numColumns = rs. getMetaData ( ) . getColumnCount ( ) ;
             for ( int i = 1 ; i < = numColumns ; i++ ) {
                // Column numbers start at 1.
                // Also there are many methods on the result set to return
                // the column as a particular type.  Refer to the Sun documentation
                // for the list of valid conversions.
                System . out . println ( "COLUMN " + i + " = " + rs. getObject ( i ) ) ;
             }
         }
     } finally {
         try { rs. close ( ) ; } catch ( Throwable ignore ) { /* Propagate the original exception 
  instead of this one that you may want just logged */ }
     }
 } finally {
     try { stmt. close ( ) ; } catch ( Throwable ignore ) { /* Propagate the original exception 
  instead of this one that you may want just logged */ }
 }
Biasanya, bagaimanapun, itu akan menjadi langka untuk programmer Java berpengalaman kode sedemikian fashion. Praktek yang biasa akan abstrak logika database ke kelas yang sama sekali berbeda dan untuk lulus string preprocessed (mungkin berasal dari diri lebih lanjut disarikan kelas) berisi pernyataan SQL dan koneksi dengan metode yang diperlukan. Abstrak model data dari kode aplikasi membuatnya lebih mungkin bahwa perubahan aplikasi dan model data dapat dibuat secara independen.
Sebuah contoh dari PreparedStatement permintaan, menggunakan conn dan kelas dari contoh pertama.
  PreparedStatement ps =
     conn. prepareStatement ( "SELECT i.*, j.* FROM Omega i, Zappa j WHERE i.name = ? AND j.num = ?" ) ;
 try {
     // In the SQL statement being prepared, each question mark is a placeholder
     // that must be replaced with a value you provide through a "set" method invocation.
     // The following two method calls replace the two placeholders; the first is
     // replaced by a string value, and the second by an integer value.
     ps. setString ( 1 , "Poor Yorick" ) ;
     ps. setInt ( 2 , 8008 ) ;
 
     // The ResultSet, rs, conveys the result of executing the SQL statement.
     // Each time you call rs.next(), an internal row pointer, or cursor,
     // is advanced to the next row of the result.  The cursor initially is
     // positioned before the first row.
     ResultSet rs = ps. executeQuery ( ) ;
     try {
         while ( rs. next ( ) ) {
             int numColumns = rs. getMetaData ( ) . getColumnCount ( ) ;
             for ( int i = 1 ; i < = numColumns ; i++ ) {
                 // Column numbers start at 1.
                 // Also there are many methods on the result set to return
                 // the column as a particular type.  Refer to the Sun documentation
                 // for the list of valid conversions.
                 System . out . println ( "COLUMN " + i + " = " + rs. getObject ( i ) ) ;
             } // for
         } // while
     } finally {
         try { rs. close ( ) ; } catch ( Throwable ignore ) { /* Propagate the original exception 
  instead of this one that you may want just logged */ }
     }
 } finally {
    try { ps. close ( ) ; } catch ( Throwable ignore ) { /* Propagate the original exception 
  instead of this one that you may want just logged */ }
 } // try
Jika operasi database gagal, JDBC menimbulkan SQLException . Ada biasanya sangat sedikit yang bisa dilakukan untuk pulih dari kesalahan seperti itu, selain penebangan dengan sedetail mungkin. Disarankan bahwa SQLException tersebut akan diterjemahkan ke dalam aplikasi domain pengecualian (satu dicentang) yang akhirnya menghasilkan rollback transaksi dan pemberitahuan kepada pengguna.
Contoh dari transaksi database :
 boolean autoCommitDefault = conn. getAutoCommit ( ) ;
 try {
     conn. setAutoCommit ( false ) ;
 
     /* You execute statements against conn here transactionally */
 
     conn. commit ( ) ;
 } catch ( Throwable e ) {
     try { conn. rollback ( ) ; } catch ( Throwable ignore ) { }
     throw e ;
 } finally {
     try { conn. setAutoCommit ( autoCommitDefault ) ; } catch ( Throwable ignore ) { }
 }
Berikut adalah contoh jenis host database yang dapat mengkonversi ke Jawa dengan fungsi.
setXXX() Metode
Oracle DatatypesetXXX()
CHARsetString()
VARCHAR2setString()
NOMORsetBigDecimal()
setBoolean()
setByte()
setShort()
setInt()
setLong()
setFloat()
setDouble()
INTEGERsetInt()
FLOATsetDouble()
CLOBsetClob()
BLOBsetBlob()
RAWsetBytes()
LONGRAWsetBytes()
DATEsetDate()
setTime()
setTimestamp()

XQuery API untuk Java

 

XQuery API Java ™ (XQJ) mengacu pada umum Java API untuk W3C XQuery 1.0 spesifikasi.
The XQJ API memungkinkan programmer Java untuk mengeksekusi XQuery melawan XML sumber data (misalnya database XML ) 
The XQJ API menyediakan pengembang Java dengan antarmuka ke Data Model XQuery. Desain yang mirip dengan JDBC API yang memiliki client / server dan merasa seperti cocok baik untuk Server berbasis XML Database dan kurang baik kepada klien- Sisi XQuery prosesor, meskipun " koneksi"bagian adalah bagian yang sangat kecil dari seluruh API. 

Contoh Dasar

Contoh berikut menggambarkan menciptakan koneksi ke database XML , mengirimkan XQuery ekspresi, kemudian memproses hasil di Jawa . Setelah semua hasil telah diproses, koneksi ditutup.
  // create a new connection to an XML Database
 XQConnection conn = vendorDataSource. getConnection ( "myUser" , "myPassword" ) ;
 
 XQExpression expr = conn. createExpression ( ) ; // create a reusable XQuery Expression object
 
 XQResultSequence result = expr. executeQuery (
   "for $n in fn:collection('catalog')//item " +
   "return fn:data($n/name)" ) ; // execute an XQuery expression
 
 // process the result sequence iteratively
 while ( result. next ( ) ) {
   // Print the current item in the sequence
   System . out . println ( "Product name: " + result. getItemAsString ( null ) ) ;
 }
 
 // free all resources created by the connection
 conn. close ( ) ;

Contoh berikut menggambarkan bagaimana Java nilai dapat terikat ke variabel eksternal dalam XQuery ekspresi. Asumsikan bahwa conn koneksi sudah ada
  XQExpression expr = conn. createExpression ( ) ;
 
 // the XQuery expression to be executed
 String es = "declare variable $x as xs:integer external;" +
             " for $n in fn:collection('catalog')//item" +
             " where $n/price <= $x" +
             " return fn:data($n/name)" ;
 
 // bind a value (21) to an external variable with the QName x
 expr. bindInt ( new QName ( "x" ) , 21 , null ) ;
 
 // execute the XQuery expression
 XQResultSequence result = expr. executeQuery ( es ) ;
 
 // process the result (sequence) iteratively
 while ( result. next ( ) ) {
   // process the result ...
 }


Default conversion rules when mapping from Java data types to XQuery data types
Java DatatypeDefault XQuery Data Type(s)
booleanxs:boolean
bytexs:byte
byte[]xs:hexBinary
doublexs:double
floatxs:float
intxs:int
longxs:long
shortxs:short
Booleanxs:boolean
Bytexs:byte
Floatxs:float
Doublexs:double
Integerxs:int
Longxs:long
Shortxs:short
Stringxs:string
BigDecimalxs:decimal
BigIntegerxs:integer
Durationxs:dayTimeDuration if the Duration Object's state is xs:dayTimeDuration
xs:yearMonthDuration if the Duration Object's state is xs:yearMonthDuration
xs:duration if the Duration Object's state is xs:duration
XMLGregorianCalendarxs:date if the XMLGregorianCalendar Object's state is xs:date
xs:dateTime if the XMLGregorianCalendar Object's state is xs:dateTime
xs:gDay if the XMLGregorianCalendar Object's state is xs:gDay
xs:gMonth if the XMLGregorianCalendar Object's state is xs:gMonth
xs:gMonthDay if the XMLGregorianCalendar Object's state is xs:gMonthDay
xs:gYear if the XMLGregorianCalendar Object's state is xs:gYear
xs:gYearMonth if the XMLGregorianCalendar Object's state is xs:gYearMonth
xs:time if the XMLGregorianCalendar Object's state is xs:time
QNamexs:QName
Documentdocument-node(element(*, xs:untyped))
DocumentFragmentdocument-node(element(*, xs:untyped))
Elementelement(*, xs:untyped)
Attrattribute(*, xs:untypedAtomic)
Commentcomment()
ProcessingInstructionprocessing-instruction()
Texttext()

Relational database management system

        Sebuah sistem manajemen database relasional (RDBMS) adalah sistem manajemen database (DBMS) yang didasarkan pada model relasional seperti yang diperkenalkan oleh EF Codd , IBMSan Jose Research Laboratory . Banyak database populer digunakan saat ini didasarkan pada database relasional Model.
RDBMSs telah menjadi pilihan yang dominan untuk penyimpanan informasi dalam database baru yang digunakan untuk catatan keuangan, manufaktur dan informasi logistik, Data personil, dan banyak lagi. Database relasional telah sering diganti warisan database hirarkis dan database jaringan karena mereka lebih mudah untuk memahami dan menggunakan. Namun, database relasional telah ditantang oleh objek database , yang diperkenalkan dalam upaya untuk mengatasi mismatch impedansi object-relational dalam database relasional, dan database XML