Visual Basic

Amer Rehman wrote:

Dim txt As New TextBox
txt.Size = New Size(55, 25)
txt.Location = New Point(x, y)
txt.Name = "strServer"
txt.Text = data
Controls.Add(txt)

labq581 wrote:

Private Sub CmdUpDate_Click()
Set ws = DBEngine.Workspaces(0)
Set dd = wS.OpenDatabase("C:\Project\Project.mdb")
Dim rs As Recordset
Dim Sql As String

SqL = "select * from report_tab where idd='" & T1.Text & "'"
Set rs = dB.OpenRecordset(SqL, dbOpenSnapshot)
With RsLap
.Clone
!no = T2.Text
!ext = T3.Text
.Update
MsgBox "Updated", vbOKOnly
End With

Dim rs as Recordset
...
'open recordset rs
...
Dim rsClone as Recordset
Set rsClone = rs.Clone

SqL = "select * from report_tab where idd='" & T1.Text & "'"
Set rs = dB.OpenRecordset(SqL)
With rs
   .MoveFirst
   .Edit
   !no = T2.Text
   !ext = T3.Text
   .Update
   MsgBox "Updated", vbOKOnly
End With

Dim driveMedia As New ManagementClass("Win32_CDROMDrive")

                       For Each mo As ManagementObject In driveMedia.GetInstances()

                           MsgBox((mo.GetPropertyValue("MediaType")))

                       Next

Dim driveMedia As New ManagementObjectSearcher("Select * From Win32_CDROMdrive")
                       For Each mo As ManagementObject In driveMedia.Get()
                           Debug.WriteLine(mo.GetPropertyValue("MaxMediaSize"))
                       Next

ManagementObjectSearcher o = new ManagementObjectSearcher("select * from win32_cdromdrive");
foreach (ManagementObject obj in o.Get()) {
  string s = obj.GetText(TextFormat.Mof);
}

Dim _oFSO = CreateObject("Scripting.FileSystemObject")
Dim _oDrive = _oFSO.GetDrive("G:")
MessageBox.Show(_oDrive.TotalSize)